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TTIE  PROCEDURES  FOR  EASY  RUNNING  OF  THE  HULL 
COMPUTER  CODE  UNDER  VMS 


1.  INTRODUCTION 


The  HULL  code  (It  is  a  group  of  public  domain  computer  programs  to  solve  hydrodynamic 
flow  problems.  The  Hull  system  comprises  a  library  of  code  from  which  Fortran 
programs  are  generated,  a  program  called  SAIL  I2t  that  is  used  to  maintain  this  library, 
and  a  program  called  PLANK  that  is  a  preprocesser  for  HULL.  The  HULL  system  is 
capable  of  running  on  a  variety  of  computers  and  is  currently  installed  at  a  number  of 
sites  throughout  the  world. 


The  HULL  system  produces  code  for  hydrodynamic  problems.  Version  121 
can  solve  two  or  three  dimensional  problems  in  either  Eulerian  mode,  Lagrangian  mode, 
or  a  combination  of  both  Eulerian  and  Lagrangian  modes.  HULL  also  has  the  capability 
to  produce  a  variety  of  plots  of  the  data  produced  by  the  calculations. 


The  HULL  code  is  written  in  standard  FORTRAN  but  must  be  altered  to  run 
on  different  computers  due  to  such  things  as  varying  bit  sizes  of  variables  and  the 
different  file  opening  statements  for  different  machines.  This  is  achieved  by  setting  the 
variables  that  SAIL  accepts  (either  in  the  input  file  to  SAIL  or  installed  in  the  HULL 
library)  so  that  SAIL  extracts  the  code  from  the  HULL  library  specific  to  the  machine 
being  used.  The  Materials  Research  Laboratory  (MRL)  has  been  running  HULL  on  a 
CYBER  205  supercomputer  (31,  but  version  121  of  HULL  has  also  been  installed  on  a  VAX 
8700  computer  at  MRL. 


This  report  presents  Digital  command  language  (DCL)  procedures  which  have 
been  written  with  the  aim  of  managing  the  great  number  of  files  produced  by  the  HULL 
system  when  running  problems,  and  to  control  the  sequence  of  programs  that  are  run 
under  the  HULL  system.  The  DCL  procedures  have  been  written  with  portability  in 
mind  so  that  they  could  be  used  at  any  VAX  site  running  VMS  4.7  or  later,  with  minimal 
alteration.  This  report  describes  the  logic  and  use  of  these  procedures. 


2.  THE  HULL  SYSTEM 


2.1  HULL  components 

The  HULL  system  comprises: 

A  library  of  subroutines  and  sequences  of  code  from  which  programs  are 
generated.  The  library  holds  all  the  code  necessary  to  generate  the  Fortran  code 
to  solve  calculations,  generate  grids  and  plot  results. 

-  The  SAIL  program,  which  is  used  to  extract  code  from  the  library. 

-  The  PLANK  program,  which  generates  the  input  to  the  SAIL  program. 

Solving  any  problem  with  the  HULL  system  requires  that  KEEL  be  run  to 
generate  the  problem  grid  and  parameters  .  Then  the  program  HULL  must  be  run  to 
cycle  through  time  to  solve  the  problem  generated  by  KEEL.  Plots  can  be  produced  from 
KEEL  and  HULL  runs  in  a  variety  of  forms,  such  as  contour  and  histogram  plots  .  The 
PULL  program  generates  plots  from  the  information  for  elements  or  cells,  and  STATION 
generates  plots  from  data  collected  at  designated  points  fixed  either  in  space  or  relative 
to  material  flow  (stations).  Figure  1  represents  the  organisation  of  the  HULL  system, 
and  Table  1  presents  the  terms  used  in  the  HULL  system. 

Table  1  Glossary  of  terms  used  in  describing  HULL  121  and  its  installation 

HULL  Program  to  solve  the  difference  equations  and  time  iterations 

(cycler).  Also,  loosely,  the  HULL  121  system. 

HULL-JOB  File  containing  DCL  commands. 

HULL  LIBRARY  File  containing  entire  HULL  121  system  in  packed  form. 

HULL  121  Version  #121  of  the  entire  HULL  system. 

KEEL  Program  to  define  and  fill  the  computational  grid  (pre¬ 

processor). 

MATLIB  File  containing  material  property  constants. 

PLANK  Program  to  expand  user  input  and  generate  secondary  input  for 

SAIL. 

PRIMARY  INPUT  Input  for  KEEL,  HULL  or  PULL  generated  by  the  user. 

STATION  Program  to  generate  graphical  output  for  grid  particle  and 

station  information. 

Program  to  process  HULL  results  and  generate  graphical  output 
(post-processor). 

Utility  to  manage  HULL  121,  operating  on  coded  internal 
identifiers  and  directives. 

SECONDARY  INPUT  Input  for  SAIL  to  generate  appropriate  version  of  KEEL,  HULL 
or  PULL  from  HULL  LIBRARY. 

USER  INPUT  See  PRIMARY  INPUT. 


PULL 

SAIL 
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2.2  Host  requirements 

The  HULL  system  is  written  such  that  it  can  be  installed  on  a  variety  of  machines.  This 
is  achieved  by  setting  flags  on  input  to  SAIL,  which  instruct  SAIL  to  include  code  specific 
to  each  machine  from  the  HULL  library.  For  convenience,  a  new  library  may  be 
generated  with  these  flags  included  so  that  any  further  SAIL  run  will  generate  code 
according  to  the  pre-set  flags.  The  installation  of  HULL  on  the  VAX  8700  involved 
generating  a  new  HULL  library  with  a  SAIL  run,  with  the  approriate  SAIL  input 
definitions  for  a  VAX  8700  machine.  From  the  new  library  a  new  PLANK  program  was 
generated,  as  well  as  a  materials  library.  Once  the  new  HULL  system  library  was 
generated,  all  code  produced  was  automatically  VAX  8700  machine  compatible. 


3.  DESIGN  OF  HULL  COMMAND  FILE 


3.1  The  command  file 

The  command  file  (HULLJOBj  is  written  in  DCL,  and  performs  the  following  tasks: 

-  Assigns  the  files  to  be  used  for  a  calculation  to  the  names  that  HULL  recognises 
so  that  files  generated  have  meaningful  names. 

-  Performs  the  run  phase  according  to  the  requirement  of  the  user. 

-  Maintains  VAX  sub-directories  so  that  several  calculations  can  co-exist  on  the 
system  without  confusion. 

-  Allows  for  multi-user  access  to  commonly  used  files,  whilst  allowing  individual 
users  to  set  their  own  parameters. 

Figure  2  is  a  functional  description  of  the  command  file. 


3.2  File  handling 


HULL  produces  default  outputs,  such  as  SAIL.DAT  and  OUTPUT.DAT  from  a  SAIL  run. 
The  command  file  renames  or  defines  the  default  outputs  to  give  them  meaningful  names 
from  generic  roots.  For  example,  the  problem  identifier  is  used  so  that  the  source  listing 
for  KEEL  produced  by  SAIL,  called  SAIL.DAT,  is  renamed  as  KEEL999.FOR  (assuming  a 
problem  identifier  of  999).  Some  typical  files  produced  are: 


DAYFILE.999 

DUMPFILES.DAT 

HULL999.DUMP4 

HULL999.DUMP9 

KEEL999.DUMP4 

KELL999.DUMP9 

prog999.EXE 

prog999.FOR 

prog999.0UT 

INPUT.999 

INPUT2.DAT 

PULLHULL.PLOT 


file  from  command  file  to  show  sequence  of  events 

holds  extensions  of  dump  files  to  be  plotted.  If  /REPEAT  is 

used,  it  is  re-read  to  obtain  extensions 

FOR004.DAT  file  is  defined  to  this  file  from  HULL 

FOR009.DAT  file  is  defined  to  this  file  from  HULL. 

HULL999.DUMP9  holds  the  station  information  from  a  run 

FOR004.DAT  is  defined  to  this  file  from  KEEL 

FOR009.DAT  is  defined  to  this  file  from  KEEL. 

KEEL999.DUMP  holds  the  station  definitions 

the  executable  file  for  the  main  run  phase 

the  source  file  for  the  main  run  phase 

the  normal  printed  output  from  a  run 

the  program  input  is  copied  to  this  file  every  run 

this  file  is  generated  by  PLANK  as  input  for  SAIL 

plot  output  for  a  PULL  run  of  HULL 
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PULLKEEL.PLOT 
STATHULL.PLOT 
PLANKprog999 .  DIAG 
SAILprog999.DIAG 


-  plot  output  for  a 

-  plot  output  for  a 

-  diagnostics  from 

-  diagnostics  from 


PULL  run  of  KEEL 
STATION  run  of  HULL 
a  PLANK  run 
a  SAIL  run 


In  the  above  "prog"  is  either  HULL,  KEEL,  PULLHULL,  PULLKEEL,  STATHULL, 
REZONE.  The  problem  identifier  used  above  is  999. 


3.3  Parameter  setting 

The  command  file  is  written  such  that  individual  users  set  their  own  parameters  to 
indicate  such  things  as  where  files  produced  by  a  run  will  reside,  or  whether  they  desire 
screen-based  monitoring.  These  parameters  are  assigned  in  an  independent  command  file 
called  HULL.COM. 


3.4  Logic  checking 

There  are  several  levels  of  checking  in  the  HULLJOB  command  file.  They  range  from 
confirming  the  existence  of  necessary  files,  to  checking  that  user  input  to  the  command 
file  is  a  valid  option. 


3.5  Code  Structure  and  Features 

The  HULLJOB  command  file  was  written  in  DCL,  using  subroutines  to  handle  the  various 
functions  involved  in  running  the  program.  Appendix  A  is  a  full  listing  of  the  command 
file.  Full  use  is  made  of  VAX  operating  system  lexical  functions  (e.g.  F$ELEMENT(...), 
FSSEARCHL.)  etc.)  along  with  utility  type  commands  as  in  the  case  of  the  SORT 
command.  The  program  is  fully  documented  internally  to  assist  modification  of  the  DCL. 


3.5.1  HULL  run  phases 

Each  run  of  HULL  is  in  three  main  phases:- 

1.  Running  PLANK  to  process  HULL  input  and  produce  expanded  secondary  input 
for  SAIL. 

2.  Running  SAIL  to  extract  code  from  the  HULL  library  to  produce  the  final 
Fortran  program. 

3.  Running  the  final  program;  either  KEEL,  HULL,  PULL  or  STATION. 

Each  phase  coresponds  to  a  subroutine  i.e.  RUN_PLANK,  RUN_SAIL  and 
RUN_PROG  respectively.  Each  phase  begins  with  the  definition  of  the  input  and  output 
files.  The  names  that  are  given  to  output  files  generally  are  a  result  of  these 
definitions.  All  defined  files  are  deassigned  at  the  end  of  each  phase  or  if  an  error 
occurs.  Necessary  files  for  each  phase  are  also  accounted  for  at  the  start  of  each  phase 
by  a  call  to  subroutine  CHECK. 
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3.5.2 


Utility  subroutines 


Several  subroutines  are  shared  between  larger  subroutines.  The  values  passed  to  these 
subroutines  are  either  passed  by  placing  input  to  them  on  the  same  line  as  the  call  to  the 
subroutine  e.g.  CALL  CHECK  "PLANK_EXE"  ,  or  by  placing  the  value  passed  into  a 
global  symbol  that  is  then  referenced  in  the  subroutine.  A  list  of  these  subroutines 
follows,  with  a  short  explanation  of  each: 


ERROR 

WRITMESS 

ERROR_COM 

FINISH 


CHECK 

GETCPU 
PUT JLINE 

FORMATSCREEN 
SCROLLTOP 
SCROLL  BOTTOM 


Writes  a  message  to  the  terminal  and  dayfile  for  non-fatal 
warning  errors. 

Writes  messages  to  screen  and  dayfile. 

Called  when  a  fatal  error  occurs  (e.g.  on  CONTROL_Y).  It 
performs  such  functions  as  renaming  or  closing  files. 

On  command  file  completion  this  subroutine  closes  some 
possibly  open  files  and  does  a  general  "clean  up"  before  the 
command  file  is  stopped. 

Checks  files  for  existence.  If  they  are  not  found,  a  fatal  error 
has  occurred. 

Recovers  resource  information  for  the  run. 

Puts  line  of  text  on  a  VT100  compatible  terminal  screen  in 
inverse  video. 

Clears  screen  and  writes  blank  status  line. 

Sets  scroll  region  to  top  part  of  screen. 

Sets  scroll  region  to  bottom  part  of  screen. 


3.5.3  User  input  subroutines 


Each  possible  type  of  user  input  to  the  command  procedure  has  a  subroutine  to  handle  the 
logic  of  accepting  valid  user  input.  A  list  of  these  subroutines  follows,  with  a  short 
explanation  of  each: 


SETJBATCH 
INTERJDENT 
GETDUMPS 
GET_PROG 
GETM  AIN_IN  PUT 


Batch  queue  parameters  are  accepted,  e.g.  the  name  of  the 
queue  and  cost  code  for  batch  file. 

An  identifier  is  prompted  for,  and  directory  created  if  necesary. 
The  string  is  kept  and  included  in  file  names. 

The  string  representing  the  dump  file  versions  is  accepted  and 
processed  to  create  a  file  holding  the  extensions  for  the  files. 
The  string  containing  the  required  HULL  system  phases  to  be 
run  is  accepted,  and  checked  against  a  list  of  valid  options. 

The  name  of  the  input  file  for  the  HULL  run  is  obtained  for, 
then  the  file  checked  for  existence. 


4.  USERS  GUIDE 


4.1  Installation 

There  are  two  main  files  involved  with  running  the  command  procedure.  The  files  are 
HULL _JOB.COM  which  contains  the  actual  DCL  code  to  run  HULL,  and  HULL.COM 
which  sets  up  an  individual  user’s  definitions.  There  should  be  no  need  to  change  HULL 
JOB.COM  in  everyday  circumstances,  and  this  file  should  be  installed  in  a  directory 
accessible  to  all  users.  Each  user  should  install  a  copy  of  HULL.COM  in  their  own  root 
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directory  (see  below)  so  that  individual  parameters  can  be  set.  An  explanation  of  the  two 
files  follows. 


4.1.1  EmLLJOB.COM  (system  level  installation) 

HULL JOB  handles  the  actual  running  of  HULL  and  may  reside  in  any  directory,  but 
should  ideally  reside  in  the  directory  of  one  user  (the  HULL  System  Manager  ).  In  this 
case  the  file  can  be  modified  and  the  modifications  are  then  accessible  to  all  users.  The 
file  could  simply  be  executed  by  typing  the  command: 

''@[directory-namelHULL JOB  ",  but  could  be  set  to  : 

"$  RUNHULL:==@[directory-namelHULLJOB"  in  HULL.COM,  so  the  command  is 
"RUN  HULL" 


4.1.2  HULL.COM  (user  definitions) 

HULL.COM  sets  up  definitions  for  individual  users,  and  makes  assignments  to  variables 
to  be  later  used  in  the  HULL JOB  file.  This  file  is  automatically  executed  at  the 
beginning  of  each  run  of  the  HULLJOB  command  file.  In  addition  HULL.COM  should  be 
executed  at  the  start  of  each  interactive  session,  most  easily  achieved  by  including  an 
execution  statement  in  the  individual  users  LOGIN.COM.  The  file  must  reside  in  the 
user  defined  root  directory  (see  below).  A  typical  HULL.COM  listing  appears  in 
Appendix  B.  Some  of  the  assignments  required  are  listed  below  (lower  case  names  are 
user  dependent): 

$  ROOT_DIR:==user.sub-directory 

Defines  the  directory  in  which  HULL.COM  must  reside  for  each  user. 

$  WORK_DISK:==disk-name: 

Defines  the  disk  name  for  the  WORK  Directory  area.  If  the  default  disk  is  to 
be  used  then  the  assignment  is  WORK _DISK:==" ". 

$  WORK_DIR:==user. work-directory 


This  is  the  name  of  the  directory  in  which  the  main  input  files  for  the  HULL 
system  must  reside,  and  from  where  sub-directories  for  each  problem  will  be  created. 

$  RUN_HULL:==@[directory-name)HULLJOB 

The  directory  name  is  the  directory  in  which  HULLJOB.COM  resides.  This 
can  be  another  user’s  area.  The  command  to  run  the  command  file  is  then 
"$  RUN _HULL". 

$  DEFINE  HULLJJB  (directory-namelhull-library 

The  HULL  library  is  referenced  by  using  HULLJJB  without  having  to  refer  to 
directory  paths*.  The  library  can  reside  in  any  other  users  area. 
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$  DEFINE  PLANK_EXE  Idirectory-namelPLANK.EXE 


PLANK  is  referenced  using  PLANK _EXE  without  having  to  refer  to  directory 
paths*.  PLANK.EXE  can  reside  in  any  other  users  area. 

S  DEFINE  SAIL_EXE  [directory-namelSAIL.EXE 


SAIL  is  run  by  simply  typing  "RUN  SAIL_EXE',  where  SAIL.EXE  can  reside  in 
any  users  area  . 

$  DEFINE  MATJJB  [directory-namelmaterials-library 


The  materials  library  can  be  held  in  a  common  user  accessible  area  and 
referenced  as  MAT  LIB*. 

$  DEFINE  DAYFILE  FWORK  DIR’ID A YFILE.DAT; 


The  file  holding  the  messages  from  the  command  file  can  be  set  to  exactly 
the  line  above.  At  the  completion  of  HULL_JOB  this  file  is  then  copied  from  the  Work 
directory  to  the  subdirectory  for  the  problem  being  run. 

$  PLOT_OBJ:=='  [directory-namelplot-package.obj" 

PLOTOBJ  is  assigned  to  the  full  name  of  the  plotting  package  that  is  to  be 
linked  with  a  PULL  or  STATION  program.  This  may  be  an  object  file  for  primitive 
CALCOMP  routines  or  drivers  for  particular  graphic  devices.  This  assignment  may  be 
set  to  if  the  plotting  option  used  does  not  require  any  files  to  be  linked  with  PULL  or 
STATION. 


$  VT100==1 


Set  VT100=1  for  VT100  compatible  terminals  (e.g.  VT100,  VT220,  VT240  etc) 
to  indicate  screen  formatting  is  to  be  done,  VT100=0  for  non  vtlOO  terminals,  and 
VT100=3  to  run  the  command  procedure  without  the  help  displays  or  screen  formatting. 

$  COST JJST:==numberl/number2/../numberN 


Assign  COST_LIST:==="“  if  a  cost  code  is  not  required  at  top  of  batch  files. 
The  first  element  in  the  list  is  later  used  as  the  default  menu  option  for  the  cost  number 
at  the  top  of  the  batch  command  file. 

$  BATCH_LIST:==namel/name2/../nameN 


BATCH_LIST  holds  list  of  batch  names  for  the  system,  which  can  be  set  to 
if  only  one  default  batch  queue  is  ever  to  be  used.  The  first  element  in  the  list  is  later 
used  as  the  default  menu  option  for  the  batch  queue  name. 
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S  UNKHULL  :==  LINK/link-optionl.../link-optionN 


This  linking  option  is  used  to  link  the  object  file  for  KEEL,  HULL  etc.  A 
typical  assignment  might  be  "L1NKHULL:==  LINK/MAP". 

$  COMPILEHULL  :==  FORTRAN/compile-optionl/.../compile-optionN 


This  compiler  option  is  used  to  compile  the  source  code  for  KEEL,  HULL 
etc.  A  typical  assignment  might  be  "COMPILEHULL:==  FORTRAN /CROSS/LIS",  or 
simply  "COMPILEHULL:—  FORTRAN 

$  MONlTOR_RUN:==  spawned  process  before  main  run 

MONITORJRUN  is  typically  " MONITOR/PROCESS  TOPCPU"  but  can  be  set  to 

Files  that  can  be  shared  between  several  users,  namely  SAIL,  PLANK,  the 
HULL  library,  the  MATLIB,  and  the  HULL_JOB  command  procedure,  could  reside  in  the 
user  directory  of  a  HULL  manager,  or  at  the  VAX  system  level  and  accessed  by  other 
users  via  references  in  HULL.COM  to  the  respective  areas  in  which  they  lie.  Appendix  C 
includes  a  typical  directory  set-up  for  a  HULL  system. 


4.2  How  to  run  HULL 

4.2.1  Screen  based  organisation  and  help 

There  are  three  main  menus  in  the  command  procedure  which  prompt  for  the  necessary 
data  to  run  the  command  file.  The  first  menu  allows  a  user  to  specify  the  phases  that 
are  to  be  run  (see  Table  2).  The  next  menu  allows  the  main  input  file  to  KEEL,  HULL, 
PULL,  or  STATION  to  be  specified.  Following  this  is  a  menu  to  obtain  a  unique  problem 
identifier  for  the  run.  If  either  PULL  or  STATION  is  to  be  run,  a  menu  will  prompt  for 
the  version  numbers  of  the  dump  files  from  which  to  generate  plots.  If  /BATCH  is 
specified  in  the  first  directory,  a  menu  will  prompt  for  the  parameters  required  for  the 
batch  run. 


These  menus  are  represented  in  Appendix  D.  The  inputs  that  would  be 
received  from  the  first  four  menus  can  be  placed  on  the  same  line  as  the  call  to  the 
command  file,  in  the  order  of  their  respective  menus,  e.g. 


$  RUNHULL 

PULLKEEL 

KDAT999.DAT 

999 

1-3 

which  translates  to 

<SHULL_JOB 

generate  PULL 

data  file 

identifier 

dumpfile  version 

4.2.2  Interactive  use  of  menus 

4.2.2.1  Menu  1  -  Options  to  run  several  combinations  of  phases 

If  KEEL  or  HULL  is  to  be  run  then  KEEL  or  HULL  is  specified  as  the  input.  If  a  PULL  or 
STATION  run  is  required  to  gercrate  plots  from  either  KEEL  or  HULL  dump  files,  then 
either  PULLKEEL,  PULLHULL  or  STATHULL  is  specified.  By  themselves,  these 
commands  will  run  PLANK  linn  SAIL  then  the  actual  KEEL,  HULL,  PULL  or  STATION 
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program  generated.  With  the  option  /SAIL,  the  SAIL  will  be  run  without  first  running 
PLANK.  The  option  /MAIN  will  begin  the  sequnce  at  the  stage  of  compiling  the  main 
program  to  be  run.  /MAINEXE  will  assume  a  .EXE  file  exists,  and  start  the  sequence  by 
running  the  main  .EXE  file.  The  option  /NOEXE  will  stop  the  sequence  when  the  .FOE 
file  of  the  main  program  is  generated.  Diagramatically,  the  various  sequences  are  as 
shown  in  Table  2. 


These  options  accomodate  a  variety  of  needs.  For  instance,  if  it  is  required 
that  the  source  code  for  KEEL  is  to  be  generated,  then  edited,  then  the  program  actually 
run,  KEEL/NOEXE  could  be  specified,  the  resulting  .FOR  file  edited,  then  KEEL/MAIN 
specified  in  the  menu.  If  a  restart  is  required  for  a  HULL  run,  simply  specify 
HULL/MAINEXE,  where  the  program  will  automatically  accept  the  last  dump  file 
written  as  the  cycle  at  which  it  is  to  restart. 


Table  2  Menu  1  -  Run  Phases 


INPUT 

SEQUENCE  OF  EVENTS 

prog 

run  PLANK->run  SAIL->compile  prog- >1  ink  pnog->run  prog 

prog!  PLANK 

run  PLANK 

prog/SAlh 

run  SAIL-x-ompile  prog  >link  prvg->nm  prog 

prog!  MAIN 

compile  prog->link  prog->  run  prog 

prog!  M  AINEX  E 

run  prog 

prog!  NO  EXE 

run  PLANK->run  SAIL 

prog/SAIL/NOEXE 

run  SAIL 

"prog"  is  either  KEEL,  HULL,  REZONE,  PULLKEEL,  PULLHULL  or  STATHULL. 

A  further  option  is  /BATCH,  which  specifies  that  after  accepting  all  other 
options,  a  process  is  spawned  to  run  the  command  file  in  batch  mode.  The  particular 
batch  queue  required  is  prompted  for,  along  with  all  other  relevant  options.  A  message 
to  the  screen  will  indicate  when  the  batch  job  is  finished.  The  log  file  for  the  job  will  be 
held  in  the  subdirectory  for  the  problem  run  and  its  contents  appended  to  the  dayfile  for 
the  problem.  If  all  defaults  are  to  be  used  for  the  batch  run  then  /DEFBATCH  should  be 
specified,  in  which  case  no  menu  will  appear. 


4. 2.2.2  Menu  2  -  Inputting  data  to  be  used  with  the  main  program  being  run 

Any  HULL  program  to  be  run  requires  the  normal  HULL  input  file.  For  use  by  the 
command  file,  this  input  file  must  reside  in  the  Work  directory  (i.e.  the  area  defined  as 
WORKJDIR  in  HULL.COM).  If  the  file  name  does  not  exist,  the  correct  file  name  will  be 
re-prompted  for.  Any  changes  to  the  original  file  required  for  further  runs  must  be  made 
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in  the  Work  directory.  A  copy  of  the  input  file  will  be  made  to  the  sub-directory  for 
each  particular  run. 


4.2,2.3  Menu  3  -  The  problem  indentifier 

An  identifier  is  required  to  provide  a  unique  label  for  a  problem.  As  a  result,  a  sub¬ 
directory  of  the  Work  directory  will  be  set  up  to  hold  all  files  generated  from  a  problem, 
and  any  file  generated  will  have  the  problem  identifier  as  part  of  its  name.  The  sub¬ 
directory  created  for  a  problem  will  be  called  RUNJ'ident".DIR  i.e.  for  problem  999, 
RUN999.DIR  is  created.  If  an  identifier  is  given  for  which  a  sub-directory  already  exists, 
all  files  in  the  directory  are  assumed  to  belong  to  this  problem. 


4.2.2.4  Menu  4  -  Dump  file  specification 

If  PULL  or  STATION  is  to  be  run,  then  this  menu  will  accept  the  version  numbers  of 
either  the  KEEL,  or  HULL  dump  files,  where  these  dump  files  have  extensions  .DUMP4 
for  PULL  runs,  and  .DUMP9  for  STATION  runs.  The  version  numbers  are  expressed  in 
terms  of  ranges,  i.e.  4-END  or  3-6  etc.  ,  where  several  ranges  can  be  specified  by 
separating  each  with  commas.  This  is  illustrated  with  the  following  group  of  files. 

HULL999.DUMP;1 

HULL999.DUMP;2 

HULL999.DUMP;3 

HULL999.DUMP;4 

HULL999.DUMP;5 

HULL999.DUMP;6 

HULL999.DUMP;7 

HULL999.DUMP;8 

To  specify  that  the  first  three  dumps  are  to  be  plotted  plus  every  second 
dump,  the  input  line  could  be  'T -3.4,6, 8".  Also,  the  last  "n"  plots  can  be  requested  by 
typing  "LASTn",  and  every  nth  dump  file  can  be  plotted  by  stating  "SKIPn". 


4.2.3  Running  without  menus  for  experienced  users 

If  the  command  file  help  menus  are  not  required,  the  variable  VTOO  in  HULL.COM  can 
assigned  as  "$  VT100  ==  3"  (see  section  4.1.2).  This  will  produce  the  prompts  for  each 
option  if  required,  and  any  error  messages,  but  will  not  display  the  help  menus  or  provide 
any  screen  formatting.  The  inputs  that  would  be  received  from  the  menus  can  be  placed 
on  the  same  line  as  the  call  to  the  command  file,  in  the  order  of  their  respective  menus, 
e-g. 


$  RUNHULL 

PULLKEEL 

KDAT999.DAT 

999 

1-3 

which  specifies: 

@HULL_JOB 

generate  PULL 

data  file 

identifier 

dumpfile  version(s) 

If  there  is  an  error  in  any  of  these  specifications,  an  error  message  will  be 
displayed,  and  a  prompt  will  be  made  for  a  new  value. 
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4.2.4  Batch  run  options 

If  /BATCH  is  used  as  a  qualifier  to  the  specification  of  the  run  phase  (either  in  the  first 
menu  or  as  part  of  the  command  line)  then  a  prompt  will  be  made  for  the  parameters  to 
run  the  program  in  batch  mode.  Valid  options  are  displayed  as  a  list  previously  assigned 
in  HULL.COM  (see  section  4.1.2)  .  The  values  prompted  for  are  the  name  of  the  system 
queue  that  the  job  will  be  run  on,  and  the  string  that  is  to  appear  at  the  top  of  the 
command  file  that  will  be  used  to  run  the  job.  Default  options  will  be  displayed,  and  are 
accepted  by  pressing  return  at  the  relevant  prompt(s).  If  it  is  known  that  the  default 
values  are  to  be  used,  the  qualifier  /DEFBATCH  can  replace  /BATCH,  in  which  case  no 
prompts  for  values  are  made.  A  typical  command  line  might  be: 

$  RUN_HULL  HULL/MAINEXE/DEFBATCH 
(©HULL^JOB)  (run  executable  HULL  in  batch  mode  with  default  options) 


4.3  How  to  make  changes  to  the  command  file 

Typical  changes  that  individual  installations  may  want  to  make  to  the  command 
procedure  are  as  follows. 


4.3.1  The  processing  of  plots 

When  PULL  or  STATION  has  created  plot  files  called  either  PULLKEEL.PLOT, 
PULLHULL.PLOT  or  STATHULL.PLOT,  a  subroutine  call  to  PROCESS_PLOTS  is  made. 
This  subroutine  currently  copies  all  files  with  'PLOT"  extensions  created  since  start  of 
execution  of  the  command  file,  to  a  file  called  FOR016.DAT.  If  a  different  operation  is 
to  be  performed  to  the  plot  files,  for  example  a  command  to  print  the  file  to  a  plotting 
device,  this  could  best  be  performed  in  this  subroutine. 


4.3.2  "Clean-Up"  operations 

Near  the  end  of  the  command  procedure,  a  subroutine  called  FINISH  is  called.  If 
particular  operations  are  desired  to  be  performed  at  the  completion  of  the  command  file, 
they  could  be  placed  in  this  subroutine.  Typical  operations  to  be  performed  are  the 
purging  or  deletion  of  files,  or  the  printing  of  the  HULL  run  diagnostics.  The  subroutine 
has  a  no-abort  command  at  the  start  ("SET  NOON")  which  is  switched  off  at  the  end 
("SET  ON").  This  permits  processing  to  continue  even  if  commands  which  would  normally 
cause  the  command  procedure  to  exit  through  fatal  errors  are  encountered,  e.g. 
attempting  to  delete  non-existent  files. 


5.  CONCLUSIONS/SUMMARY 


The  HULL  code  is  a  group  of  programs  to  solve  Hydrodynamic  problems  in  Eularian  and 
Lagrangion  modes. 

Running  HULL  on  a  VAX  system  involves  a  complex  sequence  of  events, 
comprising  the  running  of  many  individual  programs.  Considerable  expertise  is  required 
to  successfully  execute  the  correct  sequence  of  programs  and  manage  the  multitude  of 
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input  and  output  files  required  for  each  program.  The  command  procedure  described  in 
this  report  reduces  what  is  a  complex  and  difficult  task  down  to  a  straightforward 
operation.  This  procedure  provides  a  "user-interface"  for  running  HULL,  which  caters 
for  the  less  experienced  users  of  the  HULL  system  and/or  the  VAX  operating  system,  but 
also  allows  for  concise  commands  by  the  experienced  user.  All  file /house-keeping  and 
similar  functions  are  performed  transparently  to  the  user  and  the  execution  of  complex 
sequence  of  programs  is  reduced  to  simple  meaningful  commands.  The  procedures  are 
easily  portable  to  other  sites  running  VMS,  and  allow  for  a  variety  of  VAX  site 
configurations,  including  clustered  systems. 
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Appendix  A:  Listing  of  the  Command  Procedure 


$!  The  command  file  sets  the  defauli  dir  to  "work  dir"  where 
$!  this  has  been  defined  in  the  hull.com  file  .  The  initial 
$!  data  file  to  run  HULL  must  be  present  in  this  directory. 

$!  Once  the  prob.  identifier  has  been  accepted  a  new  sub-directory 
$!  will  be  created  named  run  +  identifier  . 

$!  REQUIRED  PARAMETERS  : 

$!  PROG  TO  RUN  or  PI  -  holds  the  program  to  be  run  i.e.  HULL  .  KEEL  etc 

$!  MAIN  INPUT  or  P2  -  holds  the  name  of  the  main  input  file 

$!  IDENT  or  P3  -  holds  the  problem  identifier 

$1  DUMPS  or  P4  -  holds  the  dump  file  option  for  plotting 

$!  Hence  if  the  program  was  to  be  run  in  batch  mode  .  or  run  using 

$1  one  input  line  e  g.  @main  input  KEEL  KDAT70.DAT  70  .  this  would 

$.'  create  subdirectory  RUN70  .  then  generate  and  run  KEEL. 

$' 

$1  The  settings  that  must  be  made  in  HULL.COM  are 
$!  ROOT  DIR:  =  = "directory  in  which  HULL.COM  will  reside" 

$1  WORK  DISK:  =  =  "disk  in  which  the  work  directory  resides" 

$!  WORK  DIR:  =  =  "directory  in  which  data  files  for  HULL  input  reside" 

$!  DEFINE/NOLOG  HULL  LIB  "full  name  of  HULL  library  with  directory  path" 

$!  DEFINE/NOLOG  PLANK  EXE  "  full  name  of  executable  PLANK  program" 

$!  DEFINE/NOLOG  SAIL  EXE  "  name  of  SAIL  program" 

SI  DEFINE/NOLOG  MATLIB  "  name  of  MATERIALS  LIBRARY  file" 

$1  PLOT  OBJ:  =  =  "name  of  plotting  object  file  to  be  linked  with  PULL  or  STATION" 
$1  set  VTIOO  =  1  for  VT100  compatible  terminals  or  VT!00=0  if  not 
$!  VTIOO=  =0 

$'  procnamc.  =  =  ”  arbitrary  name  .to  be  used  as  a  process  name" 

$'.  linkhull  :  =  =  "linking  option  for  HULL  .e  g.  LINK/NOMAP" 

$1  compilehull:  =  =  "compilation  option  for  HULL  .  e  g.  FOR  NOLIS" 

S’  monitor  run:  =  =  "what  process  is  spawned  for  run  .  e  g.  MONITOR  PROC/TOPC" 
S'  run  hull  :  =  =  "  ©name  of  this  file  with  directory  path" 

S  ON  ERROR  THEN  CALL  ERROR  COM 
S  ON  CONTROL  Y  THEN  CALL  ERROR  COM 
$  DEFINE/NOLO'G  SYSSERROR  ERRORS  DAT 

S  DEFINE/NOLOG  DAYF1LE  WORK  DISK' |  WORK  DIR')davfile.dat: 

S  CALL  ASSIGN  VALS 
S  TYPE  SYSSINPUT 

EXECUTING  HULL.COM 


$  SET  DEFAULT  ROOT  DISK |  ROOT  DIR  ] 

S  0HULL  I  go  to  directory  holding  HULL.COM  then  execute 

$  CALL  ASSIGN  VALS  I  it  to  make  sure  defaults  values  arc  set 
S  CALL  PAGE  I  clear  the  screen 

SI  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  open  davfile  =  =  =  =  =  =  =  =  =  =  =  =  =  = 
$  DAYITLE:  =  -DAYFILE.DAT  'real  name  ol  DAYITLE  lor  run 

S  OPEN  WRITE  ERR  =  ERROR  F  MESS!-  DAYITLE  'open  day  file 

S  GOTO  ('ONTO  ’  continue  if  open  successful! 

S  ERROR  E:  1  else 

S  WRI I  e'SYSSOUTPUT  ERROR  OPENING  DAM  ILL  ’  give  error  message 

$  (.ONTO:  Icontinue 

S’  . 

S  CALL  SCROLL  BOTTOM 

S  SET  DEFAULT  WORK  DISK  [  WORK  DIR  |  I  go  to  work  dir  .  (to  get  input  file) 

S  PPOG  TO  RUN.  =  =  PI  I  get  possible  input  from  command  lin 
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$  MAIN  INPUT:  =  =  'P2' 

$  IDENT:  =  =  P3' 

$!  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  check  existence  of  necessary  files  =  =  =  =  =  = 

$  !  make  sure  defined  files  are 

$  CALL  CHECK  "PLANK  EXE"  !  in  existence 
$  I  necessary  files  are 

$  CALL  CHECK  "MAT  LIB"  !  materials  file 

$  !  hull  library 

$  CALL  CHECK  "HULL  LIB"  I  plank  program 

$1  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  ask  for  name  of  program  to  run  =  =  =  =  =  = 

$  CALL  GET  PROG  !  get  name  of  prog 

$  '  !  i.e.  HULL.  PULL.  KEEL/MAINEXE  etc 

$  IF  NOT. DEBUG  THEN  GOTO  NOBUG 
$  MONITOR  RUN:  =  =  "" 

$  COMPILEHULL:  =  =  "'COMPILEHULL'/NOOP/DEBUG" 

$  LINKHULL.=  =  ""LINKHULL'/DEBUG" 

SNOBUG: 

$  CALL  GET  MAIN  INPUT  g  !  get  user  input  for  hull 

$  MOD:  =  =  ’ FSEXTRACT (4.1 0. PROG ) * "  !  mod  may  be  HULL  or  KEEL 

$  PARTI :  =  =  "  " F$ EXTRACT (0.4. PROG ) ’ "  !  parti  may  be  HULL. KEEL. PULL. ST AT 

$  IF  PROG. EQS.  "REZONE"  THEN  PARTI  :  =  =  "HULL" 

$!  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  get  prob.  ident.  =  =  =  =  =  =  =  ==  =  =  =  =  =  = 
$!  call  relevant  subroutine  for  interactive  or  batch  mode 
$1  to  receive  ident.  If  in  batch  mode  and  error  occurs  the  run  is 
$!  aborted  . 

$! 

$  IF  (INTERACTIVE)  THEN  CALL  INTER  IDENT 
$  IF  (.NOT. INTERACTIVE)  THEN  CALL  BATCH  IDENT 

$  ON  ERROR  THEN  CALL  ERROR  COM 
$  ON  CONTROL  Y  THEN  CALL  ERROR  COM 

$  SET  DEFAULT  [RUNTDENT]  '  !  set  default  to  new  sub-dir 

$  COPY  H'MAIN  INPUT'  INPUT  TDENT';  !  copv  main  input  file  to  subdirectory 
$  COPY  H'MAIN'INPUT'  ».*:  !.  to  file  of  same  name  and  to  a  file 

$! - - - 

$  IF  PARTI. NES. "PULL". AND. PARTI. NES.'STAT”  THEN  GOTO  NOPULL 
$  DUMPS:  =  ”"P4'"  I  if  pull  or  station  then  possible  4th 
$  BQ:  =  ""P5'"  !  5th  and  6th  inputs  are  dumps 

$  BC:  =  =  "  "P6  "  !  extensions. batch  que  and  batch  cost 

$ 

$  CALL  GET  DUMPS  ""DUMPS'"  !  store  extensions  of  dump  files 
$  GOTO  CONTP  !to  dumpfiles.dat  then  read  back 

SNOPULL: 

$  BQ:  =  ""P4'"  I  if  no  pull  then  possible  4th  and  5th 

$  BC:  »  =  ""p5  "  ;  inpUts  are  batch  queue  and  cost 

SCONTP: 

$! - 

$  IF  ((RUNBATCH. EQS. ’"(.OR. (.NOT. INTERACTIVE))  THEN  GOTO  NOBATCH 

$  CALL  SET  BATCH  ""BQ . BC '”  !  pass  queue  and  tost  to  subroutine 

$  IF  (INTERACTIVE)  THEN  CALL  RECORD 
$  GOTO  END  RUN 
S  NOBATCH: 

$!=  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  now  run  problem  =  =  =  =  =  =  =  =  =  =  =  =  =  = 

$: 

$  IF  (INTERACTIVE)  THEN  CALL  RECORD 

$  IF  (EXT  EQS. "SAIL")  THEN  GOTO  START  SAIL  I  if  starting  at  sail  or  the 
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IF  (EXT. EQS. "MAIN". OR.EXT. EQS. "MAINEXE")  THEN  GOTO  START  PROG 

!  main  run  .  jump  to  the 

START  PLANK:  !  relevant  call  to  subroutines. 

CALL  RUN  PLANK  !  run  PLANK 

IF  (EXT. EQS. "PLANK")  THEN  GOTO  END  RUNIend  session  if  not  running  prog 
START  SAIL: 

CALL  RUN  SAIL  I  run  SAIL 

IF  (NOEXE.EQS.'NOEXE")  THEN  GOTO  END  RUN  lend  session  if  not  running  prog 
START  PROG: 

CALL  RUN  PROG  I  run  program 

END  RUN: 

CALL  FINISH  I  ***END  OF  COMMAND  FILE  *** 


19 


Jt*********************************  .i;^^*^****^*********  *******  ******** 

$!  SUBROUTINE  ASSIGN  VALS  : 

$!  Global  values  are  assigned 

$  ASSIGN  VALS  :  SUBROUTINE 
$  NODISPLAY  =  =0 
$!  VTIOO=  =0 

$  PROCNAME=  =  "HULLRUN"  +FSCVTIMEC"  F$TIME()”'.." HUNDREDTH") 

$  TIME  =  F$TIME()  !  get  sytem  time 

$  BEGIN  TIME:  =  =  'F$CVTIME(TIME)‘ 

$  SINCE  TIME:  =  =  'F$EXTRACT(1 2. 5. TIME)'  !  shorten  this  time  to  just  hours  +  mins 
$  INTERACTIVE  =  =0  !  INTERACTIVE  =  0  for  batch 

$  IF  (F$MODE().EQS. "INTERACTIVE")  THEN  INTERACTIVE=  =  1 
$  !INTERACTIVE=  1  for  "INTERACTIVE" 

$  IF  (  NOT. INTERACTIVE)  THEN  VT100=  =3 
$!  VTI00  =  3  indicates  no  help  menus 
$  IF  (VTI00.EQ.3)  THEN  NODISPLAY  =  =  I 
$! 

$  MOD :  =  =  " " 

$  PART!  :  =  =  "” 

$  ENDSUBROUTINE 
$! 
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$!*****+************************************************************* 

$!  SUBROUTINE  RECORD  : 

$! 

$!  REQUIRED  PARAMETERS  : 

ji******************************************************************* 

$  RECORD:  SUBROUTINE 

$!=  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  open  problem-file  =  =  =  =  =  =  =  =  =  =  = 
$  ON  ERROR  THEN  CALL  ERROR  COM 
$  ON  CONTROL  Y  THEN  CALL  ERROR  COM 
$  CALL  PAGE 

$  OPEN /READ  INTERM  SYSSCOMMAND 

$  IF  FSSEARCHC'WORK  DISKT'WORK  DIR  JRECORDFILE.  TDENT-").NES.""  THEN  - 
GOTO  CONTFF 
SCONFNF. 

$  OPEN/WRITE/ERR  =  ERROR  PF  RECF  WORK  DISK'fWORK  DIR'JRECORDFILE.  IDENT' 

$  OUTR:  = 

$  OUTR[3,28):  = "  PHASE  RUN" 

$  OUTR[32.50]:  =  "  INPUT  FILE" 

$  OUTR[51.76]:  =  "  DATE/TIME" 

$  WRITE  RECF  OUTR 
$  WRITE  RECF  - 


$  GOTO  CONTPF  I  continue  if  open  succe 

SCONTFF: 

$  OPEN/ERR  =  ERROR  PF/APPEND  RECF  WORK  DISK]  WORK  DIR  ]RECORDFILE  IDENT 
SCONTPF:  !  continue 

$  OUTR:  = 

$  OUTR[3.28]:  =  BATCH  STR 
$  OUTR[32.501:=  MAIN 'INPUT' 

$  OUTRI51. 76]:=  BEGIN  TIME' 

$OUTR2  =  OUTR 

$  WRITE  RECF  "'F$EXTRACT(0.78.OUTR2)'" 

$  IF  NOT. RECORD  THEN  GOTO  FINR 
$  IF  .NOT. INTERACTIVE  THEN  GOTO  FINR 
$ADDR: 

S  WRITE  SYSSOUTPUT  "  REMEMBER  .  Press  return,  with  blank  line,  to  finish  ' 

SADDR2: 

$  READ/ERROR  =  FINR/PROM  =  "Comment  >>  "  INTERM  RUNE 
$1  INQUIRE/nopunct  RLINE  "Comment  >>” 

$  IF  RLINE.EQS.'”'  THEN  GOTO  FINR 
$!  OUTR:  =  " " 

$!  OUTR[3.73]:  =  "  "RUNE  " 

$  WRITE  RECF  "  RLINE  " 

S  GOTO  ADDR2 
SFINR: 

$  WRITE  RECF  - 


S  IF  FSGETDVIC  RECF  "."EXISTS")  THEN  CLOSE  RECF 
$  IF  F$GETDVI("tNTERM". "EXISTS")  THEN  CLOSE  INTERN! 
S  GOTO  CONTC 
$  ERROR  PF 

$  WRITE  SYSSOUTPUT  "  ERROR  OPENING  RECOKD1  II  I. 
SCONTC: 

SENDSUBROUTINE 

$!— . 

$! 


continue  if  open  succe 
else 

gi'e  error  message 


21 


Jt*****3|c4!  +  H!H:*4:*!j:*  +  *H<******i:*4:*i;:|:.-t:4:^*:l;**+-H;1:**4:**i;i:H:.1:****:f:*:l:*****ii+**** 

$!  SUBROUTINE  SET  BATCH  : 

$!  This  subroutine  reads  in  the  problem  identifier  in  non  interactive  mode 
$1  A  sub-directory  is  created  for  this  problem  if  non  exists 
$1  If  an  error  occurs  an  error  message  is  written  to  the  davfile 
$!  and  the  command  file  is  exited 
$! 

$!  REQUIRED  PARAMETERS  :  IDENT 

$)**♦**** ************************************************************ 

$  SET  BATCH  :  SUBROUTINE 
$  ON  ERROR  THEN  CALL  ERROR  COM 
$  ON  CONTROL  Y  THEN  CALL  ERROR  COM 
$  CALL  PAGE 

$  COMI  :  =  "PI"  !  get  queue  name  and  cost 

$  COM7:  =  "P2" 

$  OPEN/WRITE  BFILE  BATCHFILE.COM  !  open  batchfile 

$!  OPEN/WRITE  SFILE  SPAWNFILE.COM 

$  SAYB  :  =  WRITE  BFILE  !  simplify  "write"  command 

$!  SAYS  :=  WRITE  SFILE 

$  LOGFILE  =  =  "••■ WORK  DISK  "F$DIRECTORY()  LOGFILE.  TDENT  " 

$  DEFQUElJE  =  F$ELEMENT(0. "/".BATCH  LIST)  !  default  queue  is  first  in  list 

$  DEFCOST  =  F$ELEMENT(0.  ”/" .COST  LIST)  !  default  cost  is  first  in  list 

S  IF  (RUNBATCH . EQS . " DEFBATCH " )  THEN  COMI  =DEFQUEUE  !  if  DEFBATCH  secified  then 
$  IF  (RUNBATCH. EQS. "DEFBATCH")  THEN  COM7  =  DEFCOST  !  use  the  default  values 
$  IF  (RUNBATCH. EQS. "DEFBATCH")  THEN  GOTO  DEFS 
*************************** *********** 

S  CALL  SCROLL  BOTTOM 
$  IF  (NODISPLAY)  THEN  GOTO  NODISP 
S  TYPE  SYSSINPUT 

BATCH  QUEUE 


Input  the  specific  batch  queue  you  wish  to  use  .  or  hit 

RETURN  for  default  indicated.  The  log  file  for  the  run 
will  be  held  in  (he  directory  for  the  run. 

S  NODISP: 

$  CALL  SCROLL  TOP 
STOPI: 

$  CALL  WRITMESS  "Valid  list  is  "batch  list . 3"  !  display  yalid  list 

$  IF  COMI  . EQS.""  THEN  INQUIRE  COMI  - 
"  WHAT  IS  THE  QUEUE  (default  is  DEFQUEUE  )  ?  ” 

$  IF  COMI  . EQS."”  THEN  COMI  =DEFQUEUE  lif  return  use  default 

S  ILOOP  =  -l 

STOPB: 

$  ILOOP  =  ILOOP+  I 

$  TESTSTR  =  F$ELEMF.NT(ILOOP. "  " .BATCH  LIST)  '  check  input  against  each 

$  IF  TESTSTR. EQS  "/"  THEN  GOTO  ERRB  ‘  '  element  in  list 

S  IF  COMI  EQS. TESTSTR  THEN  GOTO  CONTI 
$  GOTO  TOPI) 

SERRB: 

$  CALL  WRITMESS  "  ERROR  Incorrect  option  lonil 
$  COM  I :  =  " " 

$  GOTO  TOPI 
$  CONTI: 

$  IF  COST  LIST. EQS.""  THEN  GOTO  C0NT7 
$  CALL  PAGE 
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$  CALL  SCROLL  TOP 
$  TOP7: 

$  CALL  WRITMESS  "Valid  list  is  "COST  LIST'  "  "3" 

$  IF  COM7.EQS.""  THEN  INQUIRE  COM7  - 
”  WHAT  IS  THE  COST  CODE  (  default  is  "DEFCOST)  ?  " 

$  IF  COM7.EQS.""  THEN  COM7  =  DEFCOST 

$  ILOOP  =  -l 

STOP7B: 

$  ILOOP  =  ILOOP  +  I 

$  TESTSTR  =  F$ELEMENT(ILOOP. " 1 " .COST  LIST) 

$  IF  TESTSTR.  EQS. '7  ”  THEN  GOTO  ERR7B 
$  IF  COM7.  EQS. TESTSTR  THEN  GOTO  CONT7A 
$  GOTO  TOP7B 
SERR7B: 

$  CALL  WRITMESS  "  ERROR  invalid  code  "cont7" 

$  COM7 
$  GOTO  TOP7 
$  CONT7A: 

$  DEFS: 

$  SAYB  ""COM7" 

S  CONT7: 

£M**** ************************ ******* ******* 

$  SAYB  "$  SET  NOVERIFY”  I  w. rile  contents  to  batch  file 

S  SAYB  "$  SET  DEF  ROOT  DISKT'ROOT  DIR']" 

S  SAYB  "$  ©HULL" 

$  PN  AM E  =  PART  I  +  "  "  +  E$EXTRACT(0.6.IDENT)-"[ “ 

$!  PNAME  =  F$EXTRACT(0.6.""F$USER()'")  +  "  "  +  PARTI  + "  "  +  F$EXTRACT(0.4.IDENT)-T'"! 
S  SAYB  "STOP." 

$  SAYB  "$  ON  ERROR  THEN  GOTO  WA1T0I " 

S  SAYB  ”$  SET  PROCESS 'N AME  =  "PNAME  " 

S  SAYB  "$  GOTO  CONTN" 

$  SAYB  "SWAITOI 
S  SAYB  "$  WAIT  00:02" 

$  SAYB  "$  GOTO  TOP" 

$  SAYB  "$  CONTN: " 

$  SAYLINE=  "$  RUN  HULL  "BATCH  STR'  "NEW  INPUT'  "I DENT"' 

$  IF  PARTI. EQS. "PULL". OR. PARTI. EQS. “STAT"  THEN  SAYL1NE  =  SAYLINE  +  "  REPEAT" 

$  SAYB  SAYLINE' " 

$  IF  F$GETDVI("BFILE". "EXISTS’ )  THEN  CLOSE  BFILE 
SAYS  - 

$!  "$  SUBMIT/QUEUE  =  "COM  I  7NOPRINT/NAMF.  =  BA TCHRUN/LOG=  "LOOFILE'  NOTIF  BAT 
$!  SAYS  ”$  SYNCH/QUEUE  =  "COM  I'  BATCHRl.’N  " 

$!  SAYS  "$  TYPE  SYSSINPUT  " 

$!  SAYS 

$1  IF  FSGETDVlrSFILEV  EXISTS")  THEN  CLOSE  SI  II  I 
$!  SPAWN/NOWAIT  ©spawnfile 
$  COM  =  "  SUBMIT" 

$  IF  COMI.NES. . THEN  COM  =  COM  +  '/QUI:  —  "COM  I 

$  COM  =  COM  +  "fNOPRlN/LOG=  "LOGFILE  NOTIF  BATCH1TLE.COM 
$  COM' 

$  CALL  WRITMESS  "  BATCH  JOB  NOW  SUBMIIT  I  I) 

$  ENDSUBROUTINE 
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$ 

$! 

$ 

S1 

$: 

$' 


* *************$*****  *  ***** *******^**************  +  ********** 

SUBROUTINE  BATCH  IDENT  : 

This  subroutine  reads  in  the  problem  identifier  in  non  interactive  mode 
A  sub  directory  is  created  for  this  problem  if  non  exists 
If  an  error  occurs  an  error  message  is  writlen  to  the  dayfile 
and  the  command  file  is  exited 


$!  REQUIRED  PARAMETERS  :  IDENT 

Jl**************  ***************  *:]:*  ******************************  ***** 

$  BATCH  IDENT:  SUBROUTINE 
$  ON  ERROR  THEN  CALL  ERROR  COM 
$  ON  CONTROL  Y  THEN  CALL  ERROR  COM 
$  IF  (IDENT.NES.''")  THEN  GOTO  CONTI 
$ 

$  MESS:  =  =  "  '  PROG'  GEN  STOPped  because  prob.  idem  .  missing"  I  else  call  - 
$  CALL  ERROR 
$  CONTI: 

$  FILE  =  F$SEARCH(" RUN  "ident'.DIR")  I  check  if  sub-directorv 

$  IF  (FILE. EQS."")  THEN  GOTO  CONT2  !  previously  exists 

$  CALL  WRITMESS  “  WARNINIG  -  subdirectory  RUN  "IDENT'  already  exists" 


!  if  idem  passed  to  PI 

!  then  continue 


$  GOTO  CONT3 
$  CONT2; 

$  CREATE/DIR/VERSION  =0  [  RUN'IDENT'] 

$  FILE  =  F$SEARCHCRUN"ident'. DIR  ') 

$  IF  (FILE.NES.’"')  THEN  GOTO  CONT3 
$ 

S  CALL  ERROR  "  "PROG'  GEN  STOPped  because  subdirectory  couldn't  be  created" 
$  CONT3 : 


I  if  so  give  - 
!  warning  - 
I  then  continue 
!  else  create  - 
!  sub-directory 
!  then  check  to 
!  see  that  the 

!  .dir  file  exists 


$  RET 

$  ENDSUBROUTINE 

$!  end-of-subroutine 

$! 


!  error  routin 
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$ I  *** +  *****!!:*  ^♦tf**********************  ***  *  $**  it:***  it  ***:»:*  ******  *****:•:******* 

$!  SUBROUTINE  INTER IDENT  : 

$!  This  subroutine  get  problem  identifier  in  interactive  mode 

$1  This  subroutine  acts  in  much  the  sntae  way  as  BATCH  IDENT  except  the 

$!  user  is  re-promted  for  identifier  if  an  error  occurs 

$! 

$'.  REQUIRED  PARAMETERS  :  1DENT 

J  *  *  is  *  *  *  *  HI  *  *  -1:  *  *  $  *  *  *  *  *  *  *  *  -Is  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  * 

$: 

$  INTER 1DENT:  SUBROUTINE 
$  ON  ERROR  THEN  CALL  ERROR  COM 
S  ON  CONTROL  Y  THEN  CALL  ERROR  COM 

$  CALL  PAGE  I  clear  the  screen 

$  CALL  DRAW  LINES  !  formal  the  screen 

$  CALL  SCROLL  BOTTOM 
$  IF  (NODISPLAY)  THEN  GOTO  NODISP 
S  TYPE  SYSSINPUT 

=  =  =  =  =  =  =  =  =  =  =  =  =  =  PROBLEM  IDENTIFIER  =  =  =  =  =  =  =  =  =  =  =  = 


The  problem  identifier  can  he  any  combination  of  digits  and 
alphabetic  charaters  .  A  sub-directory  will  be  created  from  the 
WORK  directory  call  RUN  'idcnt"  .  and  files  created  for  this  problem 
will  have  the  problem  identifier  appended  to  their  name 

$  NODISP: 

$  CALL  SCROLL  TOP 
$! 

$1  If  identifier  was  not  passed  to  command  file  with  call  then  prompt  for  idem. 

$! 

$  IF  (IDENT.EQS. '"’)THEN  INQUIRE  idem  "What  is  the  problem  identification  " 

$  FILE  =  FSSEARCHU  RUN  "idem"  .DIR")  !  check  if  suh-dir 

$  TOP:  I  previouslv  created 

$  IF  FILE.EQS. " ”  THEN  GOTO  CONT2  I  if  so  . 

$  CALL  WRITMESS  "  WARNING  subdirectory  already  exists"!  give  warning 

$  GOTO  CONT3  !  then  exit  subroutine 

$  CONT2:  !  else 

$  CREATE/DIR/VER  =  0  (.RUNTDENT  )  '  create  sub-dir 

$  FILE  =  FSSEARCHC  RUN  "idcnt  DIR")  !  check  if  dir  exists 

$  IF  (FILE.NES. " ”)  THEN  GOTO  CONT3  !  if  so  continue 

$  CALL  WRITMESS  "  SUBDIRECTORY  COULDN'T  BE  CREATED" 

$  INQUIRE  ident  ">  >ERROR<  <  What  is  the  prob.  idem  "  !  else  re-prompt 

$  FILE  =  F$SEARCH("RUN  'idenf. DIR")  !  then  start  again. 

$  GOTO  TOP 
$  CONT3: 

$  IDENT:  =  =  IDENT"  !  store  ident  to  idem 
$  RET  !  using  the  global  assignment 

$  F.NDSUBROUTINE  !  ”:  =  =  " 

$!  end-ol-subroutine 

$! 
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£!*****.+  **  ****************************************************************** 

$!  SUBROUTINE  RUN  PLANK  : 

$!The  program  plank  is  run  .where  ilie  executable  version  is  defined  as  PLANK  EXE 
S! 

$!  REQUIRED  PARAMETERS  :  NEW  INPUT. IDF.NT 
S!  INPUT  FILES  :  INPUT. "idem" .FORObO. DAT 
S!  OUTPUT  FILES:  OUTPUT . DAT.I N PUT2 . DAT 

J I  ***  +  +  * $  *:M:*  ******  *.*:|::|^*$  $*4:  it:***  *$**:!:**  *:(:****  St:*** Sts*** *  ***  *  *  * **  *  *  *  * **** 

S  RUN  PLANK  SUBROUTINE 
S  ON  ERROR  THEN  CALL  ERROR  COM 
S  ON  CONTROL  V  THEN  CALL  ERROR  COM 
$  CALL  CHECK  ’"'NEW  INPUT' " 

S! . . 

S  DEFINE/NOLOG  FORObO 

$  DEFINE  NOLOG  FOR005 

S  DEFINE/NOLOG  FOR007 

$  DEFINE/NOLOG  FOR006 

S  IF  PARTI  EQS  ’ HULL". OR. PARTI  EQS.  ’KEEI  ’  THEN  GOTO  CONTA 
S'  if  generating  HULL  plots  use  HULL  dump4  file  .  similarly  lor  KEEL 
$  DEFINE  NOLOG  FOR004  MOD  IDENT  DUMP4;0 
$  GOTO  CONTB 
$ CONTA: 

$1  to  generate  HULL  or  KEEL  always  use  KEEL  dump4  file 
S  DEFINE-NOLOG  FOR004  KEEL  IDENT  . DUMP4 

S  CONTI!: 

$! . 

S  ON  ERROR  THEN  GOTO  ERROR  PLANK  lit  error  in  run  then  do  error  commands 
S  CALL  WRITMESS  "  RUNNING  PLANK  FOR  PROB.  PROG  IDENT  " 


I  check  main  input  file  exists 

MAT  LIB 
"'  NEW  INPUT  ” 

TNPUT2.DAT:” 

" PLAN K  '  PROG  IDENT  .  DI AG " 


S  RUN  PLANK  EXE 

S  CALL  WRITMESS  ”  PLANK  RUN  FINISHED 
$  ON  ERROR  THEN  CALL  ERROR  COM 
$  GOTO  CONT2 
S  ERROR  PLANK: 

S  CALL  DEASS  PLANK 
S 


run  plank 

write  neesage  to  screen 
set  error  hack  to  general  routine 
!  il  successful  end  suhrotine 
!  else  perlorm  error  commands  i.o. 
deassign  defined  files 

create  appropriate  error  message 
!  call  error  routine 


$  CALL  ERROR  "ERROR  IN  RUNNING  PLANK 
S  CON  I'2:  ! 

$  CALL  DEASS  PLANK  !  it  successful  deassign  files 

S  RET  !  then  finish  subroutine 

S  ENDSUBROUTINE 


%  DEASS  PLANK  :  SUBROUTINE 
S'  deassign  files  used  for  PLANK  run 
S' 

S  ON  ERROR  THEN  CALL  ERROR  COM 
S  ON  CONTROL  V  THEN  CALL  ERROR  COM 
S  CONTA: 

$  DEASSKi.N  FORObO 
S  DEASSIGN  FOROOS 
S  DEASSIGN  FOROOb 
S  l)F ASSIGN  FORCMI7 
$  DEASSIGN  I ORIKI4 
S  RE  I 

SEN  DSUBROl  "FINE 
S' 


26 


<£»*** *************************************************************** ******** 

$!  SUBROUTINE  RUN  SAIL  : 

S!  Run  the  executable  version  of  SAIL  .  predefined  as  SAIL  EXE 
SI 

$1  REQUIRED  PARAMETERS  :ROOT  DIR 
$!  INPUT  FILES  :  INPUT2.INPUT.OLD 
SI  OUTPUT  FILES:  SAIL.DAT.OUTPUT.DAT 

<g»  ************************************************* ****************** * ****** 

$  RUN  SAIL  :  SUBROUTINE 
S  ON  ERROR  THEN  CALL  ERROR  COM 
$  ON  CONTROL  Y  THEN  CALL  ERROR  COM 
$  NOINPUT  =  0 

$!»«***♦»»»«» 

$!  Fix  up  input.dat  so  that  if  CHAGES  is  defined  (i.e.  the  change  deck) 

$1  then  anv  input.dat  is  assured  to  have  the  line 
$1  'READ  CHANGES 

S  IF  F$SEARCH("CHANGES")-EQS. . rHEN  GOTO  SKIPIT 

SOPEN/WRITE  OUT  INPUT.TEMP 

S  IF  FSSEARCHCTNPUT.DAT"). NES. THEN  GOTO  CONTI 
S  NOINPUT  =  1 
S  WRITE  OUT  '  SAIL" 

S  GOTO  ADDLINE 
SCONTI. 

SOPEN/READ  IN  INPUT.DAT 

$  FOUND  =  0 

STOP: 

S  READ/END  =  ENDF  IN  RECI 
$  WRITE  OUT  REC I 

$  IF  F$LOCATE("*READ".RECI  ).EQ.F$I.ENGTH(REC I )  THEN  GOTO  TOP 

$  FOUND = I 

SENDF: 

$  IF  FOUND  THEN  GOTO  FOUNDIT 
$  ADDLINE: 

S  WRITE  OUT  '"READ  CHANGES" 

SI  IF  NOT. NOINPUT  THEN  CLOSE  IN 
$  IF  FSGETDVICTN". "EXISTS")  THEN  CLOSE  IN 
$  IF  FSGETDVICOUT". "EXISTS")  THEN  CLOSE  OUT 
$!  CLOSE  OUT 

S  CONVERT  INPUT.TEMP  INPUT.DAT: 

$  DELETE  INPUT.TEMP: 

$  GOTO  SKIPIT 
SFOUNDIT : 

S  IF  FSGETDVICTN". "EXISTS")  THEN  CLOSE  IN 
S  IF  FSGETDVIC  OUT". "EXISTS")  THEN  CLOSE  OUT 
$1  CLOSE  IN 
SI  CLOSE  OUT 
$  DELETE  INPUT.TEMP 
SSKIPIT: 

S  CALI.  CHECK  "INPUT2.DAT" 

SI . . .  + 

S  DEFINE  NOLOG  OLD  HULL  LIB 

S’ .  . - . . — -  + 

S  ON  ERROR  THEN  GOTO  ERROR  SAIL  III  error  in  run  then  special  commands 

$  CALL  WRITMESS  "  RUNNING  SAIL  FOR  PROB.  PROG  IDES  I 
S  RUN  SAIL  EXE  I  run  the  sail  program 

S  CALI.  WRltMESS  "  SAIL  RUN  FINISHED" 
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$!  if  successful  then  rename  SAIL.DAT  as  the  new  .FOR  file 

$  IF  (F$SE  ARCH  ( "  S  AIL .  DAT " ) .  N  ES .  )  THEN  RENAME  SAIL  DAT  PROG  "I  DENT.  FOR 

$!  if  successful  then  rename  OUTPUT.DAT  as  a  file  containing  diagnostics 

$IF(F$SEARCH( "OUTPUT. DAT”). NES. '"')THEN  RENAME  OUTPUT.DAT  SAIL  PROG  IDENT  . 
$  ON  ERROR  THEN  CALL  ERROR  COM 
$  GOTO  CONT2 

$  ERROR  SAIL:  !  if  error  in  run  then  - 

$  CALL  DEASS  SAIL  I  deassign  files  for  run 

$  CALL  ERROR'  "  ERROR  IN  RUNNING  SAIL"  I  call  error  routine 
$  CONT2: 

$  CALL  DEASS  SAIL  !  if  successful  then  deassign 

$  RET  I  files  then  return 

$  ENDSUBROUTINE 

**********  ***************  ***:}:  *  +  ***+•*  *************************  ********** 

$  DEASS  SAIL  :  SUBROUTINE 
$!  deassign  files  for  sail  run 
$  ON  ERROR  THEN  CALL  ERROR  COM 
$  ON  CONTROL  Y  THEN  CALL  ERROR  COM 
$  DEASSIGN  OLD 
$  RET 

$  ENDSUBROUTINE 
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********** *********** ************************** *************************** 

$'  SUBROUTINE  RUN  PROG 

$!  The  main  module  is  run  .  i.e.  either  HULL  .  KEEL  or  PULL 
$! 

S!  COMPILEHULL  &  LINKHULL  are  the  pre-assigned  compiling  and  linking  options 
$!  for  the  program  (currently  assigned  in  the  HULL.COM  file) 

$!  REQUIRED  PARAMETERS:  PROG. IDENT.INTERACTIVE.COMPILEHULL, LINKHULL 
$! 

jim********************************************************************,,*** 

$  RUN  PROG  :  SUBROUTINE 
$  ON  F'RROR  THEN  CALL  ERROR  COM 
$  ON  CONTROL  Y  THEN  CALL  ERROR  COM 
$  CALL  PAGE  !  clear  the  screen 

$1 . . 

$!  CALL  CHECK  "INPUT.DAT" 

$1  CALL  CHECK  TNPUT2.DAT" 

$!  CALL  CHECK  "PLOT  OBJ" 


$  DEFINE /NOLOG  FOR060  MAT  LIB 

$  DEFINE/NOLOG  FOROOS  INPL?T  IDENT' 

$  DEFINE/NOLOG  FOR006  PROG  IDENT'. OUT 

S! 

SI  if  HULL  or  KEEL  OR  REZONE  run  then  jump  over  special  code  for  plotting 
$1 

S  IF  PARTI. EQS.  "HULL". OR  PARTI. EQS  "KEEI."  THEN  GOTO  DEF'PROG 
S  F1LE9  =  F$SEARCH(  '  MOD  '  I  DENT' .  DU  M  PR : " ) 

$  FILE4  =  F$SF.ARCH("  'MOD  IDENT  DUMP4:") 

$  IF  PARTI  . EQS. "PULL"  THEN  GOTO  CONTI’ 

$! 

$!  if  station  run  then  rename  dump9  files  as  for009.dat  files 

$: 

$  IF  FILE9.NES."  “  THEN  RENAME  MOD  IDENT  DUMI’9:*  FOR004.DAT:* 

$  GO  TO  CONTB 
$  CONTP: 

SI 

$1  if  pull  run  then  rename  dump4  files  as  for004.dat  files 
SI 

$  IF  FILE4.NES."  '  THEN  RENAME  MOD  IDENT  DUMP4:*  FOR004.DAT:* 

$  CONTA: 

$  GOTO  CONTB 
$  DEFPROG: 

$: 

SI  DEFINE/NOLOG  for004  and  for()09  files  for  KEEL  or  HULL 
$1 

$  DEFINE/NOLOG  FOR004  PARTI  IDENT  IH  MP4 

$  DEFINE/NOLOG  FOR009  'PARTI  I  DEN  1  I)UMP<) 

$  CONTB: 

si  — — — - — — - 

$  IF  PARTI  .NFS.  "PULL". AND. PAR  I  I  , NFS  NT  AT  HU  N  GO|'<>  NOPI  1.1. 

S  OPLN'/RLAD  INFILL.  DUMI’FII.F.S.DAl  'to  dumplilevdat  then  toad  hack 

S  'with  ploipkg  0  output  is 

S  DEFINE  NOLOG  FOKOI6  'PROG  Pl.OI  '  ten.nnc  tort! I h  plot  files 

$  DEFINE  NOLOG  FOR089  PROG  PLOT  '  I  LCKCOI.OUR  produces  for()89 

SI - 

SNOPULL. 

$  CALL  PAGE 

$  IF  INTERACTIVE  THEN  CALL  GETCPU  "  'FSPROCESSO . START" 
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$  IF  (EXT.EQS. ''MAINEXE')  THEN  CALL  CHECK  "  PROG  "IDENT  . EXE" 

$  IF  (EXT.NES. "MAINEXE")  THEN  CALL  CHECK  "  "PROG”  IDENT' .FOR" 

$  make  sure  .FOR  file  is  presen! 

$  IF  (EXT.EQS. "MAINEXE")  THEN  GOTO  CONT3  Idon't  compile  or  link  if  MAINEXE 
S  ON  SEVERE  ERROR  THEN  GOTO  ERROR  COMPILE  !  check  for  compilalion  errors 
$  IF  INTERACTIVE  THEN  ON  WARNING  THEN  GOTO  WARN  COMPILE 
$  Icheck  for  COMPILE  WARNING 

$  CALL  WRITMESS  "  COMPILING  AND  LINKING  'PROG'  FOR  PROB.  TDENT  " 

$  COMPILEHULL'  PROG" IDENT'  Icompile  assigned  in  HULL.COM 
$  ON  ERROR  THEN  CALL  ERROR  COM  !if  compilation  error  .  report 

$  GOTO  CONT2  !  if  no  errror  then  continue 

$1  compilation  error  has  occured 

$! . 

$  ERROR  COMPILE: 

$  CALL  DEASS  PROG 

$  CALL  ERROR'  ”  ERROR  IN  COMPILING  "PROG  "TDENT"' 

$! . 

$! . 

$  WARN  COMPILE: 

$  INQUIRE  WARNCONT  ”  Will  vou  continue  from  this  warning  (Y/N)" 

$  IF  WARNCONT. EQ.  "Y"  THEN  GOT  C0NT2 
$  IF  WARNCONT.NES.-N"  THEN  GOTO  WARN  COMPILE 
$  CALL  DEASS  PROG 

$  CALL  ERROR' "  COMPILATION  WARNING  FOR  'PROG'  TDENT" '' 

$! . 

$  CONT2: 

$  ON  SEVERE  ERROR  THEN  GOTO  ERROR  LINK 

$  IF  INTERACTIVE  THEN  ON  WARNING  THEN  GOTO  WARN  LINK  Icheck  for  LINK  WARNIN' 
$! 

Sllinkhull  is  assigned  in  HULL.COM  .if  plotting  then  link  with  plotting  routines 
$  IF  FSSEARCH ( " ‘ ’ PLOT  OBJ "' ) .  NES .  THEN  PLOT  OBJ  ='.'  + PLOT  OBJ 
$  IF  (PARTI.EQS."PULL".OR.PARTI.EQS  ,'STAT")  THEN  - 
LINKHULL'  ‘ PROG  TDENT" PLOT  OBJ ‘ 

SI  if  not  plotting  then  simply  link  problem  with  pre-assigned  link  options 

$  IF  (PARTI. NES. "PULL". AND. PARTI. NES. "STAT")  THEN  LINKHULL  PROG  "IDENT 
$  ON  ERROR  THEN  CALL  ERROR  COM 
$  GOTO  CONT3 

$1 . 

$1  linking  error  has  occured 
$  ERROR  LINK: 

$  CALL  DEASS  PROG 

$  CALL  ERROR"  ”  ERROR  IN  UNKING  "PROG"  IDENT 

$1 . 

$! . 

$  WARN  LINK: 

$  INQUIRE  WARNCONT  "  Will  vou  continue  from  this  warning  (Y  N) 

$  IF  WARNCONT. EQ.'  Y"  THEN  GOT  CONT3 
$  IF  WARNCONT. NES.  " N"  THEN  GOTO  WARN  LINK 
$  CALL  DEASS  PROG 

$  CALL  ERROR'  "  LINK  WARNING  FOR  PROG  IDEM 

$! . - . 

$1  Just  before  program  is  run  .  a  process  is  spawned,  when'  the  command  e  held 

Stin  MONITOR  RUN  .  assigned  in  HULL.COM  Tvpicallv  this  is  MONITOR  PROC  TOPCPU 

S  CONT3: 

$  ON  ERROR  THEN  GOTO  ERROR  RUN 
S  IF  (INTERACTIVE)  THEN  - 

$  IF  MONITOR  RUN. NES.""  THEN  SPAWN, PROCESS  =  procname  . NOWAIT  monitor  run 
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$  CALL  WRITMESS  “  RUNNING  '  PROG'  FOR  PROB.  "IDENT  " 

$! . 

$!  if  no!  plotting  then  do  no!  read  dump-file  file 

$  IF  PARTI. NES. "PULL". AND. PARTI. NES  "STAT"  THEN  GOTO  RUNIT 
STOPR: 

$  READ/END  =  ENDPLOT  INFILE  RECIN 
$  DEFINE/NOLOG  FOR004  FOR004.DAT:RECIN" 

SRUNIT: 

$  DEFINE/USER  MODE/NOLOG  SYSSINPUT  SYSSCOMMAND 
$  RUN  PROG  "IDENT' 

$  IF  PARTI.  NES.  "PULL".  AND.  PARTI.  NES.'STAT"  THEN  GOTO  ENDRUN 
$  GOTO  TOPR  !  read  nexl  extension  in  file 

SENDPLOT: 

$  CALL  PROCESS  PLOTS 
SENDRUN: 

S! . 

S  IF  (INTERACTIVE)  THEN  - 

$  IF  MONITOR  RUN. NES.  "’  THEN  STOP  'procname' 

S  IF  (F$SEARCH( "OUTPUT. DAT” ).NE. " ")  THEN  RENAME  OUTPUT  DAT  PROG  IDENT"  OUT 
S  ON  ERROR  THEN  CALL  ERROR  COM 
S  GOTO  CONT4 
S  ERROR  RUN : 

S  IF  (INTERACTIVE)  THEN  - 

$  IF  MONITOR  RUN. NES. . THEN  STOP  "procname 

$  CALL  DEASS  PROG 

$  CALL  ERROR  ”  ERROR  IN  RUNNING  PROG  ' 

S  CONT4: 

$  CALL  DF.ASS  PROG 
$  RET 

$  ENDSUBROUTINE 

J  »  *  *  $  *  +  +  i:  *  *  *  $  *  *  *  *  *  *  *  *  *  *  *  *  *  *  ***  *  *  *******  *  ****  *  ***********  *  *  *  *  -I-  ***  *  **  *  *  *  *  *  *  it  1 

$  DEASS  PROG:  SUBROUTINE 
$  ON  ERROR  THEN  CALL  ERROR  COM 
$  ON  CONTROL  Y  THEN  CALL  ERROR  COM 

$  IF  INTERACTIVE  THEN  CALL  GETCPU  FSPROCESSO . END" 

$  DEASSIGN  FOR060 
S  DEASSIGN  FOR005 
$  DEASSIGN  FOROOfi 

S  IF  PARTI. EQS. "HULL’ .OR. PARTI. EQS. "KEEL."  THEN  GOTO  DEI  PROG 
$  IF  F$GETDVI( "INFILE". "EXISTS")  THEN  CLOSE  INFILL 
$  DE ASSIGN  FOR016 
$  DEASSIGN  FOR089 

$  IF  PARTI  . EQS. "PULL”  THEN  GOTO  ("ONTO 
$  RENAME  FOR004.DAT;*  "MOD" "IDENT". DUMP1):* 

$  GOTO  CONTA 
$  CONTO: 

$  RENAME  FOR004.DAT:*  MOD  IDEM"  DIMIM 
$  GOTO  CONTA 
$  DEFPROG: 

$  DEASSIGN  FOR004 
$  DEASSIGN  FOR009 

$  IF  PARTI. EQS. "KEEL". AND. I  SSEARCHi  KI  LL  IDEM  DI  MIM  i.NL.s  IVILN 
COPY  KEEL." IDENT  . Dl' MP4  HULL  IDENT  DI  MIM: 

$  IF  PARTI. EQS. "KEEL”. AND. FSSEARCHCKEEL  IDEM  DUMP9"). NFS . THEN 

COPY  KEEL  IDENT  DUMP9  HULL  IDENT  DIIMP9: 

$  IF  PROG. NES. "REZONE”  THEN  GOTO  CONTA 
$  IF  F$SE ARC H ( " FOROSO , DAT " ) . EQS . " "  THEN  OOTO  NO  REZONE 
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$  RENAME  FOR050.DAT:  HULL  1DENT  DUMP4: 

S  CALL  WRITMESS  "  NOTE  >>  COPYING  FOR050.DAT  TO  HULL  TDENT'  DAT;  " 

$  GOTO  CONTA 
$NO  REZONE: 

$  CALL  ERROR  "  NO  FOR050  FILE  WAS  PRODUCED  FOR  THE  REZONE" 

SCONTA: 

$  RET 

$  ENDSUBROUTINE 

J  !****  +  +*******+***********  ***** +  +  +  ********  +  **  +  ***:(=*** 

SISUBROUTINE  :  PROCESS  PLOTS 

$!  This  subroutine  is  called  when  any  plotting  program  (PULL.  STATION) 

$1  is  complete. 

$! 

$1 

et**************************************************** 

$  PROCESS  PLOTS: SUBROUTINE 
$  ON  CONfROI.  Y  THEN  CALL  ERROR  COM 

$  ON  ERROR  THEN  CALL  ERROR  "  ERROR  COPYING  PLOT  FILES  TO  FOROI6.DAT" 

$  CH  ECKPLOT  =  F$SEARCH( " *  .PLOT :  - 1 " ) 

$  IF  CHECKPLOT.EQS.  THEN  GOTO  ONE  PLOT 
$  FILE  TIME  =  F$FILE  ATTRIBUTES( " ’  CHECKPLOT' '' . "CDT" ) 

$  FILE  TIME:  =  FSCVf  IME(FIL.E  TIME)' 

$  IF  FILE  TIME. LTS. BEGIN  TIME  THEN  GOTO  ONE  PLOT 
$  MANY  PLOT: 

S  COPY/CONC/SINCE=  SINCE  TIME  *.PLOT;»  FOROI6.DAT: 

$  DELETE/SIN'CE=  SINCE  TIME'  *.PLOT:* 

$!  DIRECTORY/SINCE-  'St ART  TIME' ’COLUM  =  I  OUTPUT  =  GMETA.DAT  GMETA.COM 
$!  MET  AC  AT 
$  GOTO  ENDIT 
S  ONE  PLOT: 

S  CHECKPLOT  =  F$SEARCHC'*.PLOT;") 

$  IF  CHECKPLOT.EQS. . rHEN  CALL  WRITMESS  ”  No  PLOT  Files  where  produced  ' 

S  IF  CHECKPLOT. NES. " "  THEN  RENAME  ‘.PLOT:  FOROIb.DAT: 

$  ENDIT: 

$  ENDSUBROUTINE 
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j****** ***************** a******* ********************** 

$!  SUBROUTINE  :  GET  DUMPS 

$!  This  subroutine  is  called  when  any  plotting  program  (PULL.  STATION) 
$!  is  complete. 

$: 

$' 

$•***** *********************************************** 

$  GET  DUMPS: SUBROUTINE 
$  ON  ERROR  THEN  GOTO  DUMPERR 
$  ON  CONTROL  Y  THEN  GOTO  DUMPERR 
S  CALL  PAGE 
$  CALL  DRAW  LINES 
$  CALL  SCROLL  BOTTOM 
$  IF  (NODISPLAY)  THEN  GOTO  NODISP 
S  TYPE  SYSSINPUT 

=  =  =  =  =  =  =  =  =  =  =  =  =  =  DUMP-FILE  PLOTS  =  =  =  =  =  =  = 
M-N  M  is  the  version  number  of  the  first  tilc.N  the  last 
ALL  For  all  of  the  dump  files 

START-N  The  first  dump  file  upto  version  n  are  used 

N-END  Version  N  up  to  the  last  dump 

LAST  For  the  last  dump 

REPEAT  To  plot  for  the  last  dump-files  plotted 

SKIPn  plot  every  nth  file  from  the  last  one.  n  is  an  integer 

LASTn  plot  the  last  n  dump  files  .  n  is  an  integer 


NOTE:  Vise  these  commands  in  combination,  seperated  bv  coma's  ti  e.  I -.1.5-9) 

S  NODISP. 

$! . 

S  CALL  SCROLL  TOP 

S  IF  PARTI.  EOS /PULL"  THEN  EXTENSION  =  'DUMP4" 

$  IE  PARTI  . EOS. "STAT"  THEN  EXTENSION  =  "DUMP9" 

$  DUMPNAMI:=  "  MOD  TDENT  "EXTENSION 

S  FILEE1LK=  "DUMPFILES.DAT''  !  file  to  hold  list  ol  dump  files 

S  BIGSTR:  =  PL  !  BIGstr  holds  the  option 

$  IF  (BIGSTR  EQS. '"/AND. (  NOT. INTERACTIVE))  THEN  BIGSTR  =  "END" 

$  Idelault  lor  this  is  "last'' 

$:~ . .  . . 

$  CAFE  SCROLL  TOP 
SSTART : 


$  IF  (BIGSTR. EOS  '”. AND. (INTERACTIVE))  THEN  INQUIRE  BIGSTR  "  Option  ? 
$' 

$  BIGLOOP  =  -l 

$  IF  BIGSTR. EQS. "REPEAT"  THEN  GOTO  ENDAI.l. 


$  OPEN/WRITE  INFILL  DUMPFILES.DAT 
SCONTA: 

$  BlGLOOP  =  BlGLOOP+  I 
S  INSTR  =  F$ELEMENT(BIGLOOP.  '.". BIGSTR) 
$  IF  INSTR  EOS.'  /'  THEN  GOTO  FIN 

$!— - . . 

$  STRING0  =  E$EI.EMENT(O."  ". INSTR) 

$  STRING  I  =  I'SEI.EMENTt  1  ."-".IN  S  I  K » 

$  TYPEO=I  SI  YPEtSTRINGO) 

$  TYPE  I  =1  $TYl’E(STRIN(il  i 
$  GOTO  CONTO 


!  open  this  file 

!  Break  up  bigstt  into  little  strings 
'  i  o  I  2.5  e  goes  to  1-2  then  5-b 


’  S  I  HI  Nt  til  holds  first  s  I  KIM  i  of  oplion 
’  S  t  R|N<  1 1  soi  otul 

'  (vpc"  -  niicgci  il  M  RIM  if >  integer 
’  tvpcl  ’  STRING! 


SERR1N : 


$  IE  (  NOT. INTERACTIVE)  THEN  GOTO  ERR2  1  il  batch  then  STOP 
$  CALL  WRITMESS  "  >  >  ERROR  in  directive  BIGSTR  " 
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$  BIGSTR-  "  " 

$  GOTO  START  !  prompt  again 

SERR2: 

$  CALL  ERROR  "  >  >  ERROR  IN  DIRECTIVE  INSTR  “ 

$  CALL  ERROR  COM 
$  EXIT 
SDUMPERR: 

$  CALL  ERROR  "  ERROR  IN  DUMP  FILES  SUBROUTINE" 

$  CALL  ERROR  COM 

$  EXIT 

SCONTO: 

$  SKIPIT.  =  "  "F$EXTRACT(0.4. STRINGO)  " 

S  INCREMENT= 1 
$  JUMP= 

$  IF  SK1PIT. EQS. "SKIP"  THEN  INCREMENT  =  STRING!)-  "SKIP" 

$  IF  SKIPIT. EQS.  "LAST"  THEN  JUMP  =  STRINGO-"LAST" 

$  IF  STRINGO.EQS. "LAST"  THEN  JUMP-"" 

$  FIRSTNUM  =  "XXX" 

$  LASTFILE  =  F$SEARCHC '"DUMPNAME:")  ‘  lastfiie  is  the  last  dump  file  made 
S  VER  =  FSELEMENTt  I  ,":".LASTFILE)  I  ver  is  the  version  number  of  this  file 

$  LASTNUM  =  "YYY"  1  TEST  it  integer  later  on 

$  IF  SKIPIT. EQS. "SKIP"  THEN  LASTNUM  =  VER 
$  IF  SKIPIT. EQS. "SKIP"  THEN  FIRSTNUM=1 
$  IF  STRINGO.EQS. "ALL"  THEN  LASTNUM- VER 
$  IF  STRINGO.EQS,  "ALL"  THEN  FIRSTNUM  —  I 
$  IF  SKIPIT. EQS.  "LAST”  THEN  LASTNUM  =  VER 
$  IF  SKIPIT. EQS. "LAST". AND. FSTYPE(JUMP). EQS.  INTEGER"  - 
THEN  FIRSTNUM  =  D' LASTNUM  -T  D'JUMP 
S  IF  STRINGO.EQS. "LAST"  THEN  LASTNUM  =  VER 
S  IF  STRINGO.EQS. "LAST"  THEN  FIRSTNUM  =  VER 
f  'F  STRINGO.EQS. "START"  THEN  FIRSTNUM  =  I 
$  IF  STRINGI  EQS. "END"  THEN  LASTNUM  =  VER 
$  IF  TYPEO. EQS. "INTEGER"  THEN  FIRSTNUM -STRINGO 

$  IF  TYPEO. EQS. "INTEGER". AND. TYPEI.EQS. "INTEGER"  THEN  GOTO  ALI.NUM 
$  IF  TYPEO.EQS.  "INTEGER". AND. STRINGI. EQS."-  THEN  LASTNUM  =  FIRSTNUM 
$  IF  TYPEI  EQS. "INTEGER"  AND. STRINGI  LF..VER  THEN  LASTNUM -STRING I 
$  IF  TYPEI  .EQS. "INTEGER". AND. STRINGI  . C.T, VER  THEN  LASTNUM  =  VER 
$  GOTO  CONTI 
SALLNUM: 

$  IF  STRINGO.GT. STRINGI  THEN  LASTNUM -STRING!) 

$  IF  STRINGO.GT. STRINGI  THEN  FIRSTNUM  =  STRING  I 
$  IF  STRINGI  GT  STRINGO  THEN  FIRSTNUM  =  STRINGO 
$  IF  STRINGI  GT. STRINGO  THEN  LASTNUM  =  STRING  I 
SCONTI: 

$  IF  F$TYPE(FIRSTNUM).NES. "INTEGER"  THEN  GOTO  ERRIN' 

$  IF  F$TYPE(LASTNUM).NES. "INTEGER"  THEN  GOTO  liRRIN 
$  IF  FSTYPEdNCREMENT)  NES  "INTEGER"  THEN  GOTO  ERKIN 
$  IF  FIRSTNUM. GT. LASTNUM  THEN  GOTO  ERRIN 
$  FLOOP- LASTNUM 
SLOOP: 

$  FILE  =  FSSEARCH! " ' ' DUMPNAME/:  FLOOP  > 

$  IF  FILE  EQS. ""  .OR  FLOOP  EQ.O  THEN  GOT!)  SOI  II  I 
$  NUMOUT:  =0001) 

$  NUMOUT[4-F$LENGTH(FLOOP).4|:  =  I  LOOP 
$  WRITE  INFILE  "  NUMOUT  " 

SNOFILE. 

$  FLOOP  =  D  FLOOP' -T  D  INCREMENT' 
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$  IF  FLOOP.LT  firstnum  then  goto  endit 
s  goto  loop 

SENDIT: 

S  GOTO  CONTA 
SPIN: 

S  IF  F$GETDVI( "INFILE".  'EXISTS  ')  THEN  CLOSE  LNFILE 

$  SORT  KEY  =  (POSITION:  I .SIZE  =  4. DECIMAL. ASCEND)  NODl’P  DUMPFILES.DAT  DUMPFIL 

SPURGE  K=I  DUMPFILES.DAT 

SENDALL: 

S  RET 

S  ENDSL'BROUTINE 


Jf*^**************^***************:}:********:*:******************-************^ 

$!  SUBROUTINE  :  GET  PROG 

$!  The  name  of  the  program  to  run  may  be  held  in  PROG  TO  RUN  .  If  not. 

$!  the  name  is  prompted  for  in  interactive  mode  .  or  the  command  file 
$!  terminated  otherwise. 

$! 

$!  REQUIRED  PARAMETERS:  PROG  TO  RUN 
$! 

$1  PARAMETERS  PRODUCED:  PROG  -  Either  HULL  .  KEEL  or  PULL 

$!  EXT  -  Either  SAIL  or  MAIN 

$1************************************************************************** 

$  GET  PROG  :  SUBROUTINE 
$  ON  ERROR  THEN  CALL  ERROR  COM 
$  ON  CONTROL  Y  THEN  CALL  ERROR  COM 
$  CALL  PAGE 
$  CALL  DRAW  LINES 
$  CALL  SCROLL  BOTTOM 

jt . 

$  NUMOPT  =  =  5 

$  OPTO:  =  =  "PROG/KEEL/PULLKEEL/PULLHULL/HULL/STATHULL/REZONE" 

$  !  add  to  particular  list  . 

$  OPT1 :  =  =  "EXT/SAIL/MAIN/MAINEXE/PLANK"  !  or  add  your  own  option  by  following 

$  OPT2:  =  =  "NOEXE/NOEXE"  !  sequence  of  options  .  and  add  variable 

$  OPT3:  =  =  "RUNBATCH/BATCH/DEFBATCH" 

$  OPT4:  =  =  "FLAGS/DEBUG/RECORD" 

$! . 

$  ILOOPI  =  -l  !  Initialise  variables  that  may  be  used 

$  TOPINIT: 

$  ILOOPI  =  ILOOPI +  1 

$  IF  ILOOPI  .GT. NUMOPT- 1  THEN  GOTO  ENDINIT 
$  NEWVAR=F$ELEMENT(0.'7\OPTTLOOPr) 

$  ’NEWVAR'  :  =  = 

$  GOTO  TOPINIT 
SENDINIT: 

$! . 

$  IF  (NODISPLAY)  THEN  GOTO  NODISP 
$  TYPE  SYSSINPUT 

=  =  =  =  =  =  =  =  =  =  =  =  =  =  COMMAND  FILE  TO  RUN  HULL  =  =  =  =  =  =  =  =  =  =  =  = 

*  Enter  KEEL, HULL  .STATHULL.PULLHULL.  PULLKEEL,  REZONE 

*  /PLANK  to  just  run  plank 

*  /SAIL  will  run  procedure  from  the  Sail  phase 

/MAIN  will  compile,  link  then  run  the  main  program 
/MAINEXE  run  the  program  without  recompiling  or  linking 
(  i.e.  simply  use  HULL/MAINEXE  for  restart  run 

*  /NOEXE  if  FOR  file  is  to  be  created  but  noi  run 

*  /BATCH  if  program  is  to  be  run  in  batch  mode 

*  /DEFBATCH  to  run  in  batch  mode,  with  default  batch  parameters 

*  /RECORD  to  add  additional  info,  to  recordfilc  held  in  work  dir 

*  /DEBUG  to  run  (and  compile/link  if  necessarv)  in  DEBUG  mode 
$  NODISP: 

$  CALL  SCROLL  TOP 
$  INP=  ""PROG  TO  RUN 

$! . . 

$1  This  part  initialises  the  FLAG  variables  in  varlist 
$ 

$  TOPLOOP= I 
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$  ENDOPT  =  NUMOPT- 1 
$  TOPO: 

$  VARTOP  =  F$ELEMENT('TOPLOOP','7".OPT'ENDOPT') 

$  IF  (VARTOP.EQS.'T')  then  goto  top 
$  VARTOP'  =  =0 
$  TOPLOOP  =  TOPLOOP  + 1 
$  GOTO  TOPO 

$!— . 

$  TOP: 

$  IF  (INTERACTIVE. AND. (INP.EQS. " "))  - 

THEN  INQUIRE  INP  ”  What  is  the  program  (KEEL. HULL. PULLKEEL  etc.)  " 

$  TOP2: 

$!— . 

$  OPTVAR:  =  INP' 

$  OPTSTR:  =  OPTO' 

$  CALL  INSTR  “  'OPTSTR . OPTVAR  " 

$  IF  (RETVAL.EQS."  “)  THEN  GOTO  ERROR  I 
$  PROG:  =  =  'RETVAL' 

$  BATCH  STR=  =PROG  !  Hold  valid  input  string  in  batch  str 

$  OPTVAR  =  OPTVAR  -  "I"  -  RETVAL 
$  GOTO  CONTO 
$! . - . 

$!  — . error  has  occured - 

S  ERROR I . 

$  IF  INTERACTIVE  THEN  GOTO  CONT  ERR  !  else  error 

$  CALL  ERROR  "  INPUT  TO  MAIN  COM  FILE  IS  INCORRECT"  !  call  error  routine 

$  CONT  ERR:  I  then  pronip 

$  INQUIRE  INP  ”  What  is  the  program  (KEEL  .  HULL.  PULLKEEL  etc.)" 

$  INP:  =  INP' 

$  !  and  check  a 

$  GOTO  TOP2 

$! .  . 

$  CONTO: 

$  VARCOUNT  =  0 
$  CONT: 

$  VARCOUNT  = VARCOUNT  + I 
$  COMM:  = 

$  IF  (VARCOUNT. NE.NUMOPT)  THEN  COMM:  =  "OPTSTR  =  OPT  "F$STRING(VARCOUNT) 

S  COMM' 

S  VARNAME=  =F$ELEMENT(0. "/".OPTSTR) 

$  VARNAME'  —  = 

$  IF  ((OPTVAR. NES.”"). AND. (VARCOUNT. EQ.NUMOPT))  THEN  GOTO  ERROR2 
$  IF  (OPTVAR. EQS.'"’)  THEN  GOTO  CONT3 

$  CALL  INSTR  "  "OPTSTR . OPTVAR" 

$  IF  (RETVAL.EQS."")  THEN  GOTO  CONT 
$  IF  (VARCOUNT. LT.(NUMOPT-D)  THEN  GOTO  I.TNUMOPT 
$  COMM=  "  "RETVAL' =  =  I " 

$  COMM 
$  GOTO  CONTZ 
$  I.TNUMOPT 

$  COMM  =  "  VARNAME' ==  RETVAL" 

$  COMM' 

$  IF  RETVAL. NES. "BATCH" ^.AND. RETVAL. NFS. "DEFBATCH  . AND. RETVAL. NES. ’RECORD" 
THEN  BATCH  STR  ==  BATCH  STR +  T  + RETVAL 
$  !Add  valid  input  string  to  batch  sir 
SCONTZ: 

$  OPTVAR  =  OPTVAR-  "I"  -  RETVAL 


* 

S 

X 
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$!  OPTVAR:  =  =  OPTVAR' 

$  IF  (OPTVAR. EOS."")  THEN  GOTO  CONT3 
$  GOTO  CONT 

$! . - — . . . 

$!  - - error  has  occured 

$  ERROR2: 

$  ! WRITE  SYSSOUTPUT  "OPTVAR =  "OPTVAR'  VARNAME=  "VARNAME"' 
$  IF  INTERACTIVE  THEN  GOTO  ERROR3 

$  CALL  ERROR  ”  DIRECTIVE  "OPTVAR'  TO  COM  FILE  IS  INCORRECT" 

$! . - . 

$  ERROR3: 

$  CALL  WRITMESS  "  >  >  ERROR  IN  DIRECTIVE  "OPTVAR' <<" 

$  INQUIRE  OPTVAR  ”  What  was  the  desired  directive  (return  for  none)  ” 

$  OPTVAR:  =  OPTVAR' 

$  IF  (OPTVAR. NES. " ")  THEN  GOTO  CONTO 
$  CONT3: 

$  RET 

$  ENDSUBROUTINE 
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£  I  ¥  *  *  *  4=  *  *  #  *  *  *  *  *  ■*  *  -t  *  * *'  if'  ■*  *  $  #  *  *  *  *  *  *  *  *  4=  +'  *  *  *  *  -*  *  $  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *■  *  *  *  *  * 

S!  SUBROUTINE  INSTR 

$! 

$!  PARAMETERS  REQUIRED  :  INSTR.INVAR 

Jf!t!H:.1s**!|s*H!*!|‘i|!!|!**J|!!|!**#!k****H!*»********^*H:^**H:4::»:!l:*.i!**i:*^*%****!>:*!f!*****.1:****** 

$  INSTR: SUBROUTINE 
$  ON  ERROR  THEN  CALL  ERROR  COM 
$  ON  CONTROL  Y  THEN  CALL  ERROR  COM 
$  INSTR:  =  PL 
$  INVAR:  =  P2' 

$  I  LOOPO  =  0 

$  TESTSTRO:=F$ELEMENT(ILOOPO. "/".INVAR)' 

$  LOOPO. 

$  ILOOP=  I 

S  TESTSTR:  =  F$ELEMENT(lLOOP.'7",INSTR)' 

$  LOOP: 

$  IF  (TESTSTR. EQS.TESTSTRO)  THEN  GOTO  ENDINSTR 
$  ILOOP  =  ILOOP+  1 

S  TESTSTR:  =  F$ELEMENT(ILOOP.'7"  .INSTR)- 
S  IF  TESTSTR. NES.'7"  THEN  GOTO  LOOP 
S  ILOOPO  =  ILOOPO+  I 

S  TESTSTRO:=  F$ELEMENT(ILOOPO. "/“.INVAR)- 
S  IF  (TESTSTRO.NES."/")  THEN  GOTO  LOOPO 
S  RETVAL:  =  = 

$  GOTO  RETSTR 
S  ENDINSTR: 

S  RETVAL:  =  =  TESTSTR- 
S  RETSTR: 

S  RET 

S  ENDSUBROUTINE 
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$  ’  *  *  *  *  *  *  *  *  *  *  *  *  i:  *  *  *  +  **:):  +  *  *  +  *  E  +  *  *  i-  *  *  *  -T  +  *  *  -1-  -1=  T  *  :h  *  +  *  *  -*-  :1:  *  *  -I-  *  -1:  *  *  *  *  *  -t  }:  +  1:  *  $  *  *  *  *  *  *  *  1=  * 

S!  SUBROUTINE  :  GET  MAIN  INPUT 

S!  Gets  the  name  of  the  main  input  tile  tor  this  specitie  run 

S!  PARAMETERS  REQUIRED  :  INTERACTIVE  .  MAIN  INPUT 

$>************************************************************************* 

$  GET  MAIN  INPUT:  SUBROUTINE 

S  ON  ERROR  THEN  CALL  ERROR  COM 

S  ON  CONTROL  V  THEN  CALL  ERROR  COM 

S  CALL  PAGE 

S  CALL  DRAW  LINES 

S  CALL  SCROLL  BOTTOM 

$! . . . . 

S  II  (NODISPLAY)  THEN  GOTO  NODISP 
S  TYPE  SYSSINPUT 

=  =  =  =  =  =  =  =  =  =  =  MAIN  INPUT  FILE  TO  RUN  HULL  =  =  =  =  =  =  =  =  = 


*  The  user  input  file  to  he  used  for  HULL  must  reside  in  the 
WORK  directory  set  up  in  the  HULL.COM  file 

If  a  new  run  is  required  with  a  changed  input  file  .  this 
new  file  must  he  in  the  WORK  directory  NOT  in  the  suh-dirccti  r\ 
for  the  problem 

S  NODISP: 

S  CALL  SCROLL  TOP 

s: . . 

S  TOP: 

S  IF  (INTERACTIVE.AND. (MAIN  INPUT. EQS.  '))  THEN 
INQUIRE  MAIN  INPUT  "What  is  the  main  input  tile" 

STOP2: 

S  I  II.E  =  FSSEARCHtMAIN  INPUT) 

S  IF  (FILE. NFS. “*>  THEN  GOTO  CON  I 

S' . error  has  occured  .  file  not  lotind  - 

S  IF  NOT. INTERACTIVE  THEN  GOTO  CON  I  ERR 
S  INQUIRE  MAIN  INPUT  "Whitt  is  the  main  input  file" 

S  GOTO  POP2 
$  CONT  ERR 
S 

S  CALL  ERROR  "Main  input  file  not  lound  '  finish 

S' . 

S  CON  I  : 

S  FILE  WITH  NO  EXTENSION  =  I  SEI.EMI.N  1(0.  .MAIN  INPUli 
S  NEW  INPUT  ='=  FILE  WITH  NO  EXTENSION  '  make  M  \I\  IN  PI  I  global 

$  MAIN  INPUT' =  = 'MAIN  INIMT  '  make  M  MN  |N|M  I  gloKil 

S  RF.  I 

$  ENDSUHROU TINE 


'  I-  the  file  piesent 
'  it  so  continue 

'  it  not  intcracthe  end 
'  else  inquire  again 

I  then  check  again 

'  file  not  found  . 


40 


JfH!**!*:^^**************^***********^^****^********^***^**************^****** 

$!  SUBROUTINE  :  ERROR  COM 

$: 

$!  This  sub.  is  an  emergency  exit  to  a  bad  command  file 

$!  it  will  DEASSIGN  all  definitions  and  close  relevant  files 

$!  .  then  it  will  attempt  to  "reboot"  the  system  by  the  command 

$'.  ©['ROOT  DIR'Jhull.com.The  current  directory  is  then  set 

$!  as  the  default  directory. 

. . : . 

S  ERROR  COM  :  SUBROUTINE 

$  ON  ERROR  THEN  CALL  PUT  LINE  "6"  "22”  ”  Problem  executing  error  subroutine" 

S  CALL  WRITMESS  ERROR  WHILST  EXECUTING  COMMAND  PROCEDURE" 

S  IF  F$GETDV1("MESSF". "EXISTS")  THEN  CLOSE  MESSF 

$!  DEASS/ALL  !  deassign  all  definitions 

S  @ -ROOT  DISKTROOT  DIR  )HULL.COM 

S  WRITE  SVSSOUTPUT  - 

"  HULL.COM  REBOOTED  .  NOW  IN  '  WORK  DISK  ("WORK  DIR  RUN  TDENTT 
S  CALL  FINISH 
S  ENDSUBROUTINE 

Ct***************************!^:*************************--!:****************** 

S'  SUBROUTINE  WRITMESS  : 

S!  The  message  to  be  written  to  the  dayfiie  file  should  have  beeni  passed 
$.'  as  a  parameter  .  PI  is  written  to  davfile  .  then  written  to  svsSoutput 

S! 

S!  REQUIRED  PARAMETERS  :  -message- 

Jt************  ir********************  *  +  ***. ******. £***#*  *;(:  ********************* 

S!  subroutine  error 

S  WRITMESS  .  SUBROUTINE 
S  ON  ERROR  THEN  CALL  ERROR  COM 
S  ON  CONTROL  Y  THEN  CALL  ERROR  COM 
S  II  P2.EQS. . fHEN  P2  =  .I0 

S  II  VTIOO  THEN  CALL  PUT  LINE  "& . P2 . PC 

$  It  (VTIOO. NE.  I )  THEN  WRITE  SYSSOUTPU  I . PC 

S  WRITE  MESSF  "  PC’ 

S!  WRITE:  svsSoutput  ’’"PC 
S  RET 

S  ENDSUBROUTINE 

S! 

S'  v  ***  I-  :1  t  1  1:  +  V  1  \  t  t  *  1  V  V  V  V  VS'I  *  *1  *  *  1+  *  *  *  *  *  1’  V  v  *  *  +  *  *  V  mt  mu  1 1  + 

S'  SUBROUTINE  ERROR  : 

S!  The  error  message  to  be  written  to  the  dayfiie  file  should  have  Intern  written 
S'  to  variable  MESS  MESS  is  written  to  davfile  .  then  the  FINISH  routine 
*  S'  is  called  to  close  relevant  files  etc. 

■  S' 

S'  REQUIRED  PARAMETERS  :  MESS 

y  t  *  +  *  +  +  +  +  ******  +  +  *****  +  **^-*  +  *****  +  **.+  ♦**1-1  t  ;  '  i  1  i  -1  •  f 

I  $!  subroutine  error 

i  S  ERROR:  SUBROUTINE 

i  S  WRITE  MESSF  "  PI 

J  S  WRITE:  MESSF  "Command  routine  status  I  SMESS.V il.tSN  1  \1  US' 

>  S  WRITE  svsSoutput  "  PC 

S  (  ALL  PUT  LINE  "22"  I  PI 
SSET  NOON' 

S  II  (INTERACTIVE)  THEN  SLOP  MON  RUN 
SSET  ON 

S  CALL  FINISH 


$  ENDSUBROUT1NE 
$! 

$1*  ********.' (:***********  +  ***:}:***:(;*  *********************  *********  if:*****  ******** 

$!  SUBROUTINE  FINISH  : 

$!  This  subroutine  closes  the  dayfile  .  then  copies  it  from  then  directors 
$!  holding  the  dayfile  to  "dayfile. "idem. 

£1*************************************************************************** 

$  FINISH:  SUBROUTINE 

$  ON  ERROR  THEN  WRITE  SYSSOUTPUT  "  ERROR  IN  FINISH  ROUTINE" 

$  ON  CONTROL  Y  THEN  WRITE  SYSSOUTPUT  "  CONTROL  Y  DISABLED" 

$  SET  NOON 

$  CALL  SCROLL  I  24 

$  ASSIGN  JUNK.DAT  SYSSOUTPUT 

$  IF  F$GETDVI(  TNFILE". "EXISTS")  THEN  CLOSE  INFILE 
S  IF  FSGETD VI ("MESSF"." EXISTS")  THEN  CLOSE  MESSF 
$  IF  F$GETDV1("BFILE". "EXISTS")  THEN  CLOSE  BFILE 
$  IF  FSGETDVICSFILE". "EXISTS")  THEN  CLOSE  SFILE 
$  IF  F$GETDVI( "IN". "EXISTS")  THEN  CLOSE  IN 

$  IF  FSGETDVIC'OUT". "EXISTS")  THEN  CLOSE  OUT 
$  IF  F$GETDVI("RECF". "EXISTS")  THEN  CLOSE  RECF 
$  IF  FSGETDVICTNTERM". "EXISTS")  THEN  CLOSE  INTERM 
$  NEWFILE  = 'FSDIRECTORYO' DAYFILE.  TDENT'" 

$  RENAME  DAYFILE  'NEWFILE'  !  copy  dayfile  from  work  directory 

$  I  to  current  dir 

$! .  . 

$  FILE4  =  FSSEARCHf " FOR004. DAT" ) 

S  FILE9  =  F$SEARCH( "  FOR009 .  DAT" ) 

$  IF  FILE4.NES."". AND. PARTI. EQS. "PULL"  THEN  - 
RENAME  FOR004.DAT:*  'MOD  TDENT  .DUMP4:* 

$  IF  FILE4.NES. "".AND. PARTI. EQS. "STAT"  THEN  - 
RENAME  FOR004.DAT:*  MOD  TDENT' DUMP9:* 

$  IF  FILE9.NES.""  THEN  RENAME  FOR009.DAT:*  MOD  T DENT  DUMP9;* 

$! . 

$  CALL  PURGE  FILE  "*.DIAG" 

$!  CALL  PURGE  FILE  "DAYFILE.*" 

$!  CALL  PURGE'FILE  "*.EXE" 

$!  CALL  PURGE'FILE  "*.  "IDENT" 

$!  CALL  PURGE'FILE  "*.COM" 

S  DEASSIGN  SYSSOUTPUT 
$  DELETE  JUNK.DAT: 

$  DEASSIGN  SYSSERROR 

$  IF  FSSEARC  H  ( " ERRORS . DAT " ) . EQS . " "  THEN  GOTO  NOERRORS 
$  IF  FSFILE  ATTRIBUTES! " ERRORS . DAT" . " EOF  ’ ) . EQS .  "0"  THEN  GOTO  DEL  ERRORS 
$  IF  INTERACTIVE  THEN  CONVERT/APPEND  ERRORS  DAT  NEWFII.E 
$  IF  . NOT. INTERACTIVE. AND. FSSEARCHf "LOGILE.  TDENT'  i  NES.  ' "  THEN 
CONVERT/APPEND  LOGFILE.  IDENT  NEWFILE. 

SDEL  ERRORS: 

$  DELETE  ERRORS.DAT: 

SNOERRORS: 

$  SET  ON 
$  STOP 

$  ENDSUBROUTINE 
$! 

$! 

JI  +  ***************1«*ie*********!(:**  +  !t!^**4!**.l!!t:1:***iJ:****i:*!»!****  +  +  !M!**!j:*H:!(!:|!H:l:H:**1:!t: 

S!  SUBROUTINE  PURGE;  FILE 

$'  The  name  of  (he  file  to  be  PURGED  is  checked  for  existence. If  the  file 
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$!  is  found  then  a  purge  with  a  /k=  I  is  done. If  it  is  not  found  then 
$!  no  further  action  is  taken 
$! 

$!  REQUIRED  PARAMETERS  :  PI 

$1***  ****• I!***********:!:. (!  ********** *****: ********  *******  ***********  ************** 

$  PURGE  FILE:  SUBROUTINE 
$  ON  ERROR  THEN  CALL  ERROR  COM 
$  ON  CONTROL  V  THEN  CALL  ERROR  COM 
$  CHECK  FILE:  =  PI' 

$  FILE  =  F$SEARCH(CHECK  FILE)  !  look  for  file  in  current  dir 

$  IF  (FILE.EQS."")  THEN  GOTO  CONT  !  if  found  exit  subroutine 

$  PURGE/KEEP  =  2  CHECK  FILE 
$  CONT: 

$  RET 

$  ENDSUBROUTINE 
$! 

S! 

Cl*************************** ****** ********* *********************  ************ 

$!  SUBROUTINE  CHECK  : 

$1  The  name  of  the  file  to  be  checked  is  held  in  check  File  .If  the  file 
S!  is  found  then  no  action  is  taken. If  it  is  not  found  then  an  error  message 
$1  is  written  and  the  error  subroutine  is  called 
$! 

$!  REQUIRED  PARAMETERS  :  PI 

$1  *  ******************* *  ******  *  ***  ****  ***  **  ********************  *  ***  ******  ***** 

$  CHECK  :  SUBROUTINE 
S  ON  ERROR  THEN  CALL  ERROR  COM 
$  ON  CONTROL  Y  THEN  CALL  ERROR  COM 
$  CHECK  FILE:  =  PI' 

$  FILE  =  F$SEARCH(CHECK  FILE)  I  look  for  file  in  current  dir 

$  IF  (FILE. NES.'  "')  THEN  GOTO  CON  I  !  if  found  exit  subroutine 

$  CALL  ERROR  "  ERROR  -  CHECK  FILE'  NOT  FOUND"  I  and  call  error  routine 
$  CONT: 

$  RET 

$  ENDSUBROUTINE 
$! 

$  |  H:*******  .**:»:****  it******: J;  +  *1:  *  +  **  +  *  +  *  *  +  *  +  ******  *  ****  ***  *  *  *  **  *  ************* 

SI  SUBROUTINE  GETCPU  : 

$! 

$!  REQUIRED  PARAMETERS  :  PI 

$!  this  subroutine  attempts  to  get  system  details  about  resources  used  for  run 

$1***+** *******************  ********************  ****************************** 

$  GETCPU  :  SUBROUTINE 
$  ON  ERROR  THEN  CALL  ERROR  COM 
$  ON  CONTROL  Y  THEN  CALL  ERROR  COM 

$  PROC:  =  PL  '  name  ol  process 

$  PID  =  F$PID(PROC)  !  get  number  lor  this  process 

$  IF  PID.EQS.”"  THEN  GOTO  CONT  '  il  non  skip  code 

$  IF  P2.EQS.  "END"  THEN  GOTO  ENDCPl 

$  CPUTIME  =  =F$(iETJPI(  "  "PID'-.-CPUTIM  i  !  jzet  epu  time  tor  process 
$  IOTIME=  =  I  SliETJPK  "  "PID  '  .  'DIRIO  ") 

S  GOTO  CONI 
$  ENDCPU: 

$  CPI  ITIME  =  FSGETJPIt "  "PID' "  ."CPU  TIM " )  -  CPUTIM1;  '  get  epu  lime  lor  process 
$  IOTIMK  =  F$GETJPI<'"'PID  V'DIRIO")  -  IOI1ME 
$  CPI  I  TIME  =  CPI  ITIME/ 1 00 
$  HOURS  =  CPUTIME/3b00 
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$  MINS  =  (CPUTIME  -  (3600*HOURS))/60 
$  SECS  =  CPUT1ME  -  (3600*HOURS)  -  (60*MINS) 

$  CALL  WRITMESS  "  ********************** **********************" 

$  CALL  WRITMESS  - 

”  CPU  TIME  FOR  'PROG'  IS  'HOURS':HOURS.'MINS:MINS.'SECS:SECS" 
$  CALL  WRITMESS  "  DIRECT  IO  COUNT  IS  'IOTIME  " 

$  CALL  WRITMESS  "  S*******************************************" 

$  CONT: 

$  RET 

$  ENDSUBROUTINE 
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Jl******************** ******* *******************************  ******* 

$  PUT  LINP.  :  SUBROUTINE 
$  ON  ERROR  THEN  CALL  ERROR  COM 
S  ON  CONTROL  V  THEN  CALL  ERROR  COM 
$  IE  (VTI 00.NE.1 )  THEN  GOTO  NOVTIOO 
S  LINE  =  PI'  I  line  to  display  text 

$  COL  =  P2'  !  column  to  display  text 

$  TEXT  =  "  "  P.V "  !  text  to  be  displayed 

$  WRITE  SYSSOUTPUT  "  ’’ 

$  WRITE  SYSSOUTPUT  "" 

$1  puts  the  cursor  at  (lin .col)  on  the  screen  of  the  VT-100 

$  BLANK  =  ’’ 

$  WRITE  SYSSOUTPUT  TNE  C  COL'H  BLANK  " 

$  WRITE  SYSSOUTPUT  TNE  :  "COL  H  "TEXT 
$  WRITE  SYSSOUTPUT  "  " 

$  IF  SCRTOP.EQ!  THEN  CALL  SCROLL  TOP 
S  II  SCRTOP.EQ. 0  THEN  CALL  SCROLLBOTTOM 
$  NO  VTI 00: 

S  ENDSUBROUTINE 

51***************************************************************** 

S  DRAW  LINES  :  SUBROUTINE 
S  IE  (VTIOO.NE.  I)  THEN  GOTO  NOVTIOO 

$  CALL  PUT  LINE  6  I  "STATUS  Ot  'PROGRAM  >  >  "  I  standard  scren  format 

S  NO  VTI 00:' 

S  ENDSUBROUTINE 

5*********** ******************************************************* 

S  SCROLL  :  SUBROUTINE 
S  ON  ERROR  THEN  CALL  ERROR  COM 
S  ON  CONTROL  Y  THEN  CALL  ERROR  COM 

$  IE  (VTIOO.NE.  1)  THEN  GOTO  NO  VT100  I  skip  code  if  non  vtlOO 
$! 

$!  sets  scrolling  region  on  VTI00  from  Istart  to  lend 

S' 

S  I. START  =  PI '  I  start  line  of  region 

S  I.END='P2'  !  end  line  of  scroll  region 

s: 

S  WRITE  SYSSOUTPUT  "START  :' 'LEND' r"  !  scroll  command  sent  to  term 

S!  This  puts  cursor  at  the  top  of  the  scroll  region  to  be  made 
$  WRITE  SYSSOUTPUT  "START  :IH 
S  NO  VTI00: 

$  ENDSUBROU  TINE 

ji ***************************************************************** 

S  SCROLL  BOTTOM  :  SUBROUTINE 
$  ON  ERROR  THEN  CALL  ERROR  COM 
$  ON  CONTROL  Y  THEN  CALL  ERROR  COM 
S  II  (VTIOO.NE. I)  THEN  GOTO  NOVTIOO 
S! 

SI  sets  scrolling  region  on  VTI 00  from  Istart  to  lend 

$! 

S  SCRTOP=  —  0  '  set  scroll  region  ll.ig 

S  WRI  TE  SYSSOUTPU  I . 

$  CALL  SCROLL  8  24  !  call  scroll  subroutine 

$  NO  VTI 00: 

$  ENDSUBROUTINE 

51  ******************************************************* ********** 

$  SCROLL  TOP  :  SUBROUTINE 
$  ON  ERROR  THEN  CALL  ERROR  COM 
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$  ON  CONTROL  Y  THEN  CALL  ERROR  COM 
$  IF  (VT100.NE.1 )  THEN  GOTO  NO  VTIOO 
$! 

$!  sets  scrolling  region  on  VTI00  from  Istart  to  lend 

$! 

$  SCRTOP=  =  1  !  set  flag  to  show  scroll  region 

$  WRITE  SYSSOUTPUT  "  " 

$  CALL  SCROLL  I  4  I  call  scroll  subroutine 

$  I  clear  the  first  four  lines 

$  WRITE  SYSSOUTPUT  " 

$  WRITE  SYSSOUTPUT  ” 

$  WRITE  SYSSOUTPUT  " 

$  WRITE  SYSSOUTPUT  " 

$  NO  VTIOO: 

$  ENDSUBROUTINE 

J(*****************************  ***********  ************************* 

S  PAGE  : SUBROUTINE 
$  ON  ERROR  THEN  CALL  ERROR  COM 
$  ON  CONTROL  Y  THEN  CALL  ERROR  COM 

$  IF  ( VTIOO. NE.l)  THEN  GOTO  NO  VTIOO  '  don't  format  for  non  vtlOO  s 

$! 

$!  homes  cursor  and  clears  the  screen  on  the  VT-100 

$! 

$  WRITE  SYSSOUTPUT  ”  " 

$  CALL  SCROLL  I  24  I  first  reset  scroll  region 

$  WRITE  SYSSOUTPUT .  !  this  clears  the  screen 

$  NO  VTIOO: 

$  ENDSUBROUTINE 
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Appendix 


B:  Listing  of  a  typical  HULL.COM 


S  CAU.  SET  ROOT 


S  WORK  DIR  =  =  fred. hull. work 
S  WORK  DISK:  =  =diska: 


S  DEFINE  NOLOG 
S  DEFINE  NOI.OG 
S  DEFINE  NOLOG 
S  DEFINE  NOLOG 
S  DEFINE  NOLOG 


HLLL  LIB  diska :  [ harr>  source] hull  1 2 1  lib: 

PLAN K  EXE  diska : | sani . progs  [plank  exe 

SAIL  EXE  [harry  source|sail  exe 
MAT  LIB  diskb: I fred . files] mail ib .  1 2 1 
DAYFILF.  IWORKDIRIDAYFTLE.DAT. 

S  PLOT  OBJ:  =  =  ( I  red  progslcalcomp.ohj 

S'  SET  VTIOO=  1  FOR  VTIOO  COMPATIBLE  OR  VT100  =  0  IF  NOT  and  3  FOR  NO  MENDS 
S  VT 1 00  —  =  I 

S!  cost  list:  =  =  " it  a  cost  code  is  not  required  at  top  of  batch  file 

S  COST  LIST:  =  =0001.0003  0009 

S  BATC  H  LIST:  =  =e\tSbatch  slowSbatch ■sysSbatch 

S  I.INKHCLL  :  -  =  link  nomap 

S  COMPII.EHI  LI.  =  =  for  nolis 

S  MONT  FOR  RLN  =  =  mon  proc  tope 

S  RLN  HILL  ==  [  fred  hull.  commmands|Hl'LI.  JOB  COM: 

SI  XII 


SSL!  ROOT. SI  BROl  UNI. 

S  WHERE  =  FSENVIROMENTt  PROCEDI  RE  I 
S’  I  Ins  little  bit  of  code  should  set  up  the  root  disk  and  dir  to 
S’  the  disk  and  dir  where  this  tile  exists 
S  ROOT  DISK  =  =FSELLMENT«LT  .WHERE) 

S  ROOT  I)1R=  =  |  Slil.EMF.NTtn,  |  .WHERE)  ROOT  DISK  -  T 
SENDS!  BROCTINL 
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Appendix  C:  User  Input  Menus 


Option  : 


STATUS  >> 


COMMAND  FILE  TO  RUN  HULL  ■■■■■ . .  IT-rl~ 

*  Enter  KEEL, HULL  , STATHULL , PULLHULL ,  PULLKEEL ,  REZONE 

*  /PLANK  to  just  run  plank 

*  /SAIL  will  run  procedure  from  the  Sail  phase 

/MAIN  will  compile,  link  then  run  the  main  program 
/MAINEXE  run  the  program  without  recompiling  or  linking 
(  i.e.  simply  use  HULL/MAINEXE  for  restart  run 

*  Add  /NOEXE  if  .FOR  file  is  to  be  created  but  not  run 

*  Add  /BATCH  if  program  is  to  be  run  in  batch  mode 

*  Add  /DEFBATCH  to  run  in  batch  mode,  with  default  batch  parameters 

*  Add  /dDEBUG  to  compile, link  and  run  program  in  debug  mode 

*  Add  /RECORD  to  add  lines  to  record  file 


What  is  the  Main  input  file  : 


STATUS  » 


:=«  MAIN  INPUT  FILE  TO  RUN  HULL 


*  The  user  input  file  to  be  used  for  HULL  must  reside  in  the 
WORK  directory  set  up  in  the  HULL.COM  file 

If  a  new  run  is  required  with  a  changed  input  file  ,  this 
new  file  must  be  in  the  WORK  directory  NOT  in  the  sub-directory 
for  the  problem 
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FIGURE  1  File  organisation  and  exchange  for  main  HULL  programs 


I 
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FIGURE  2  Functional  Description 
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FIGURE  3  Directory  set-up  for  a  HULL  system 
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